var
sei:TSHELLEXECUTEINFO;
begin
ZeroMemory(@sei,sizeof(sei))
sei.cbSize :=Sizeof(sei);
sei.lpFile :=''C:\1.txt';
sei.lpVerb :='properties';
sei.fMask :=SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;