VPF::Получение реалистичных иконок устройств

nicestep

Дата 8.7.2011, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.11.2009
Где: Оренбург

Репутация: нет
Всего: нет

В своем приложении я хочу получить реалистичные иконки принтеров, установленных в системе. Те самые, которые отображаются в папке "Устройства и принтеры" панели управления (Windows 7).

Для этого я пробовал перебрать элементы папки принтеров, полученной с помощью SHGetSpecialFolderLocation с параметром CSIDL_PRINTERS. Делее, используя интерфейс IExtractIcon, перебрал все возможные комбинации флагов для GetIconLocation. Но в результате, получил только иконки из стандартной коллекции.

После продолжительного гугления, появились следующие догадки. Как оказалось, начиная с Windows Vista эта функция SHGetSpecialFolderLocation оставлена лишь для обратной совместимости, а каталога CSIDL_PRINTERS, как такового, вообще больше нет. Теперь, руководствуясь этим кодом, я пробую зайти конкретно в папку "Устройства и принтеры" панели управления и перебрать все элементы в ней. Но у меня возникают проблемы при получении IShellItem — функция IOpenControlPanel.GetPath возвращает ошибку в выделенной строке.

Код


const
  DEVICES_AND_PRINTERS = 'Microsoft.DevicesAndPrinters';
var
  StrBuf: array[0..MAX_PATH - 1] of Char;
  ControlPanel: IOpenControlPanel;
  ShellItem: IShellItem2;
  Walk: INamespaceWalk;
  MyWalk: TMyNamespaceWalkCB;
  HR: HRESULT;
begin
  HR := CoCreateInstance(CLSID_OpenControlPanel, nil,
    CLSCTX_INPROC_SERVER, IOpenControlPanel, ControlPanel);
  CheckShellResult('CoCreateInstance(CLSID_OpenControlPanel)', HR);
  try
    HR := ControlPanel.GetPath(DEVICES_AND_PRINTERS, StrBuf, MAX_PATH); // <<<
    CheckShellResult('ControlPanel.GetPath', HR);
    HR := SHCreateItemFromParsingName(StrBuf, nil, IShellItem2, ShellItem);
    CheckShellResult('SHCreateItemFromParsingName', HR);
    ...

Подскажите, в чем может быть проблема?

Rennigth

Дата 8.7.2011, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата(nicestep @ 8.7.2011, 14:47

)

возвращает ошибку в выделенной строке

какую ошибку-то?

--------------------

(* Honesta mors turpi vita potior *)

nicestep

Дата 8.7.2011, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.11.2009
Где: Оренбург

Репутация: нет
Всего: нет

Цитата(Rennigth @ 8.7.2011, 20:11

)

какую ошибку-то?

Значение сейчас и не вспомню. Что-то стандартное, в духе Shell API: -247..... Точнее могу сказать только после выходных. А это принципиально?

Это сообщение отредактировал(а) nicestep - 8.7.2011, 22:12

Rrader

Дата 10.7.2011, 18:22 (ссылка)

(голосов:2)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

В винде есть недокументированная функция Printer_LoadIconsW (shell32.dll) - она как раз делает эту работу.

Там используется функция SHGetKnownFolderIDList с идентификатором FOLDERID_PrintersFolder вместе с функцией SHGetFileInfo (с флагами SHGFI_ICON + SHGFI_PIDL + [SHGFI_SMALLICON]).

В общем, можно после вызова SHGetKnownFolderIDList сделать вызов SHBindToObject и привязать папку с принтерами к IShellFolder2, перебрать все принтеры и получить иконки.

Сейчас нет возможности написать наглядный пример ;)

--------------------

Let's do this quickly!
Rest in peace, Vit!

nicestep

Дата 11.7.2011, 07:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.11.2009
Где: Оренбург

Репутация: нет
Всего: нет

Цитата(Rrader @ 10.7.2011, 20:22

)

Там используется функция SHGetKnownFolderIDList с идентификатором FOLDERID_PrintersFolder вместе с функцией SHGetFileInfo (с флагами SHGFI_ICON + SHGFI_PIDL + [SHGFI_SMALLICON]). В общем, можно после вызова SHGetKnownFolderIDList сделать вызов SHBindToObject и привязать папку с принтерами к IShellFolder2, перебрать все принтеры и получить иконки.

Понял, сейчас попробую реализовать

Цитата(Rennigth @ 8.7.2011, 20:11)

какую ошибку-то?

Попробовал добавить себе CoInitialize, хотя, мне кажется, это лишнее

Код


 HR := CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
  if HR in [S_OK, S_FALSE] then
    try
      HR := CoCreateInstance(CLSID_OpenControlPanel, nil,
        CLSCTX_INPROC_SERVER, IOpenControlPanel, ControlPanel);
      CheckShellResult('CoCreateInstance(CLSID_OpenControlPanel)', HR);
      try
        HR := ControlPanel.GetPath(DEVICES_AND_PRINTERS, StrBuf, MAX_PATH); // <<<

Возвращает многозначительное E_FAIL. Пенял также на недостаток прав доступа: попробовал, запустил от имени администратора - результат все тот же

nicestep

Дата 11.7.2011, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 10.11.2009
Где: Оренбург

Репутация: нет
Всего: нет

Цитата(nicestep @ 11.7.2011, 09:07

)

Понял, сейчас попробую реализовать

Попробовал SHGetFileInfo, получил для всех принтеров blank icon

Код


...
HR := SHGetFileInfo(PChar(IDLTmp), 0, Info, SizeOf(TSHFileInfo), SHGFI_PIDL or SHGFI_ICON);
if HR = 0 then
  raise Exception.Create('SHGetFileInfo');
FIcon := Info.hIcon;
...

Подключил недокументированную Printer_LoadIconsW, снова получил стандартные иконки

Цитата(nicestep @ 11.7.2011, 09:07

)

Выяснил, что ошибка возникает только в 64-битных версиях Windows. В 32-битной все работает нормально

Это сообщение отредактировал(а) nicestep - 11.7.2011, 08:59

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »