//drony@mynet.com
//icq:266148308uses shellapi;
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;
//TEST
procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then PropertiesDialog(Opendialog1.FileName);
end;