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

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::03148