Как вызвать диалог свойств файла?
Материал из 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;
ID: 03148