function ShellPropDlg(const Handle: HWND; const FileName: string): Boolean; var Info: TShellExecuteInfo; begin FillChar(Info,SizeOf(Info),#0); with Info do begin cbSize:=SizeOf(Info); lpFile:=PChar(FileName); nShow:=SW_SHOW; fMask:=SEE_MASK_INVOKEIDLIST; Wnd:=Handle; lpVerb:=PChar('properties'); end; Result:=ShellExecuteEx(@Info); end;
----------------------------------------------
???