Здравствуйте, De-Bugger, Вы писали:

DB>Не знаю, у меня код работает, возвращает ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A8A91A66-3A7D-4424-8D24-04E180695C7A}
DB>CoInitialize(NULL); не забыли? Какой код ошибки вообще?

Добавил себе 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