Карта сайтаСсылкиКонтакты

Отображение стандартного окна свойств Windows

PDF Печать
Статьи

Для отображения стандартного окна свойств Windows для указанного файла по определенному имени будем использовать:


ShowProperties(Application.Handle, 'c:\autoexec.bat')

Но для этого нужно все-таки написать некоторый код:


uses
  { ... } ShellAPI;

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;

сувениры


 

Добавить комментарий


Защитный код
Обновить