Delphi - база знаний

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


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





{ 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

Взято с сайта



Содержание раздела