uses
ShellApi;
function ShowFilePropertiesDialog(hWndOwner: HWND;
const FileName: string): Boolean;
var
Info: TShellExecuteInfo;
begin
with Info do
begin
cbSize := SizeOf(Info);
fMask := SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_INVOKEIDLIST or
SEE_MASK_FLAG_NO_UI;
wnd := hWndOwner;
lpVerb := 'properties';
lpFile := pChar(FileName);
lpParameters := nil;
lpDirectory := nil;
nShow := 0;
hInstApp := 0;
lpIDList := nil;
end;
Result := ShellExecuteEx(@Info);
end;