功能说明：获取文件属性
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
filename :string;
sei : TShellExecuteInfo;
begin
if opendialog1.Execute then
begin
filename:=opendialog1.FileName;
FillChar(sei,SizeOf(sei),#0);
sei.cbSize:=SizeOf(sei);
sei.lpFile:=PChar(filename);
sei.lpVerb:='properties';
sei.fMask:=SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;
end;