[Redddd]

Хочу использовать WMI
Беру пример с msdn.microsoft.com:

Код:

// Step 1: --------------------------------------------------
// Initialize COM. ------------------------------------------
 Form1->Memo1->Clear();

 hres =  CoInitializeEx(0, COINIT_MULTITHREADED);
 if (FAILED(hres))
    {
     Form1->Memo1->Lines->Add("Failed to initialize COM library. Error code = 0x");
        //return 1;                  // Program has failed.
    }

И сразу же на первом шаге ошибка - Failed to initialize COM library.
В чем дело?

[poli-smen]

Сообщение от Redddd

Хочу использовать WMI
Беру пример с msdn.microsoft.com:

Код:

// Step 1: --------------------------------------------------
// Initialize COM. ------------------------------------------
 Form1->Memo1->Clear();

 hres =  CoInitializeEx(0, COINIT_MULTITHREADED);
 if (FAILED(hres))
    {
     Form1->Memo1->Lines->Add("Failed to initialize COM library. Error code = 0x");
        //return 1;                  // Program has failed.
    }

И сразу же на первом шаге ошибка - Failed to initialize COM library.
В чем дело?

СиБилдера у меня нет, но на Delphi вот такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  hres: DWORD;
begin
  hres := CoInitializeEx(0, COINIT_MULTITHREADED);
  if Failed(hres) then ShowMessage(SysErrorMessage(hres));
end;

сообщает о такой ошибке: "Изменение режима для потока после его установки невозможно" - дело видимо в этом.

При работе с WMI я использовал вызов CoInitialize (а не CoInitializeEx) и то, только при работе в параллельном (не основном) потоке (thread).

[Freeman]

Сообщение от poli-smen

При работе с WMI я использовал вызов CoInitialize (а не CoInitializeEx) и то, только при работе в параллельном (не основном) потоке (thread).

Тут еще нужно поизучать особенности адаптации кода COM под VCL. На память сейчас не помню. Но если использовать CreateObject из ComObj, в обычном приложении ему ручной вызов CoInitialize не требуется, он прописан в тех мегабайтах кода, прилинковываемым к приложению VCL.

[poli-smen]

Сообщение от Freeman

Тут еще нужно поизучать особенности адаптации кода COM под VCL. На память сейчас не помню. Но если использовать CreateObject из ComObj, в обычном приложении ему ручной вызов CoInitialize не требуется, он прописан в тех мегабайтах кода, прилинковываемым к приложению VCL.

Совершенно верно. Именно написание обычного приложения с формами я и имел ввиду - где-то в дебрях VCL прописан вызов CoInitialize. При написании же "бесформенного" или консольного приложения скорее всего CoInitialize придётся вызывать самому.

[Alegun]

Сообщение от Redddd

...Failed to initialize COM library...

Без привязки к ЯП - по умолчанию служба WMI в W7 отключена, а у вас она запущена?

[Redddd]

А мине для ХР
hres = CoInitialize(NULL);
Так работает, но появилась новая проблема

IWbemClassObject *pclsObj;
ULONG uReturn = 0;

while (pEnumerator)
{
HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1,&pclsObj, &uReturn);

if(0 == uReturn)
{
break;
}

uReturn возвращает ноль