Zobrazení dialogu "Vlastnosti"

A do třetice. Ukážeme si, jak k danému souboru zobrazit známý systémový dialog Vlastnosti, který je obvykle přístupný přes kontextové menu pravého tlačítka.
procedure Vlastnosti(Soubor:String);
var
sei: TShellExecuteInfo;
begin
FillChar(sei, SizeOf(sei), 0);
sei.cbSize := SizeOf(sei);
sei.lpFile := PChar(Soubor);
sei.lpVerb := 'properties';
sei.fMask := SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;