プロセスのリストの取得

初心者 2009-03-11 06:32:41 No: 33618

http://mrxray.on.coocan.jp/Delphi/plSamples/901_WMI_SoftWare.htm
上記の03_プロセスのリストを参考にして、TThreadでテキストファイルにプロセスのリストを出力することを考えています。
出力はプロセス名・パス・使用メモリ等です。

多分フォームを持たないのでエラーになっていると思いますが、解決方法がわかりません。

環境は７Pro XPです。

エラー箇所は
Locator := CoSWbemLocator.Create;
です。

エラーメッセージは
EOleSysError クラスの例外を生成しました。
'CoInitialize は呼び出されていません。'
です。

宜しくお願いします。

そのまんま 2009-03-11 09:14:46 No: 33619

そのエラーメッセージが言ってる通りにすればエラーは出ないよ。

初心者 2009-03-11 22:07:07 No: 33620

そのまんまさん回答有難う御座います。

追加しましたが同じ箇所で終了してしまいます。

try
if CoInitialize(nil) <> S_OK then Exit;
Locator := CoSWbemLocator.Create;
^^ここでエラーも発生しなくて終了してしまいます。
except
~
end;

んで... 2009-03-11 22:39:30 No: 33621

CoInitializeの戻り値は？

初心者 2009-03-11 23:02:12 No: 33622

んで...さんコメント有難う御座います。

if CoInitialize(nil) <> S_OK then Exit;
を通過しているのでS_OKだと思います