Как мне программно открыть окно свойств како-го нить файла?

[Altera]

[mihali4]

Например, вот так:

uses  
shellapi;  

procedure PropertiesDialog(FileName: string);  
var fileinfo: TShellExecuteInfo;   
begin  	
FillChar(fileinfo, SizeOf(fileinfo), 0);   
fileinfo.cbSize := SizeOf(fileinfo);   
fileinfo.lpFile := PChar(FileName);   
fileinfo.lpVerb := 'properties';   
fileinfo.fMask := SEE_MASK_INVOKEIDLIST;   
ShellExecuteEx(@fileinfo);   
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  	
if Opendialog1.Execute then   
PropertiesDialog(Opendialog1.FileName);   
end;

Автор сей мудреной штуки - Peter Below (TeamB)

[Altera]

Спасибо mihali4!!!