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

Материал из 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