Как отобразить стандартный диалог свойств Windows

Вот код, который будет отображать стандартное окно свойств 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;

—

02.09.2016

coder

Как отобразить стандартный диалог свойств Windows

Использование

Комментарии