Как вызвать диалог свойств файла?

[Пепел Феникса]

как его собственно вызвать?(и папки тоже кстати)

[Greblin]

Вот, из DRKB, подходит и для файлов, и для папок

Procedure ShowFileProperties(Const 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;

[Пепел Феникса]

спасибо
можно закрывать.