Вот код, который будет отображать стандартное окно свойств Windows для указанного имени файла (объекта).
Использование
ShowProperties (Application.Handle, 'C: \ autoexec.bat ‘)
function ShowProperties
(hWndOwner: HWND; const FileName: string)
: boolean;
var
Info: TShellExecuteInfo;
Handle : THandle;
begin
{ заполняем структуру SHELLEXECUTEINFO }
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;
{ Вызов окна свойств Windows. }
Result := ShellExecuteEx(@Info) ;
end;
Комментарии