ShellExecuteEx 获取文件属性

功能说明：获取文件属性 

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;

通过 Wiz 发布