В своем приложении я хочу получить реалистичные иконки принтеров, установленных в системе. Те самые, которые отображаются в папке "Устройства и принтеры" панели управления (Windows 7).
Для этого я пробовал перебрать элементы папки принтеров, полученной с помощью SHGetSpecialFolderLocation с параметром CSIDL_PRINTERS. Делее, используя интерфейс IExtractIcon, перебрал все возможные комбинации флагов для GetIconLocation. Но в результате, получил только иконки из стандартной коллекции.
http://img835.imageshack.us/img835/6923/printericons.png
После продолжительного гугления, появились следующие догадки. Как оказалось, начиная с Windows Vista эта функция SHGetSpecialFolderLocation оставлена лишь для обратной совместимости, а каталога CSIDL_PRINTERS, как такового, вообще больше нет. Теперь, руководствуясь http://social.msdn.microsoft.com/Forums/en/windowsgeneraldevelopmentissues/thread/a8d4b932-cd16-443d-b6c8-a0b3afd272d1, я пробую зайти конкретно в папку "Устройства и принтеры" панели управления и перебрать все элементы в ней. Но у меня возникают проблемы при получении 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);
...
|
Подскажите, в чем может быть проблема? |
)