Как показать File Properties dialog?

Previous  Top  Next

    
 

 

 

Code:

{ This code shows the standard file properties dialog like in Windows Explorer }

 

uses

shellapi;

 

// Thanks to Peter Below (TeamB) for this code

procedure PropertiesDialog(FileName: string);

var

sei: TShellExecuteInfo;

begin

FillChar(sei, SizeOf(sei), 0);

sei.cbSize := SizeOf(sei);

sei.lpFile := PChar(FileName);

sei.lpVerb := 'properties';

sei.fMask := SEE_MASK_INVOKEIDLIST;

ShellExecuteEx(@sei);

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if Opendialog1.Execute then

PropertiesDialog(Opendialog1.FileName);

end;

 

 

©Drkb::01197

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php