WMIで情報取得、showmessageするとエラーとなる (ID:41256)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

WMIで情報取得、showmessageで結果を表示後「OK」を押すとエラーとなります。コメントにするとエラーは出ません。

フォーム不要なのでインターネットのフォームありのサンプルを参考にフォームなしで作ったのですがフォームなしにすることに問題があるのでしょうか。

delphi初心者で対処方法が分からず困っています。
よろしくお願いします。

----
・環境：WindowsXP,Delphi6

・エラーメッセージ
EAccessViolationがモジュールProject2.exeの 00005F98で発生しました。
モジュール'Project2.exe'のアドレス00405F98でアドレス57FB2C08に対する読み込み違反が起きました。

program Project2;

uses
  Windows, Messages ,Dialogs, ActiveX, WbemScripting_TLB;

var
  Locator: ISWbemLocator;
  Service: ISWbemServices;
  ObjSet: ISWbemObjectSet;
  Enum: IEnumVariant;
  Obj: OleVariant;
  Value: Cardinal;
  msg: string;

{$R *.res}

begin
  Locator := CoSWbemLocator.Create;
  Service := Locator.ConnectServer('.', 'root\cimv2', '', '', '', '', 0, nil);

ObjSet:= Service.ExecQuery('SELECT * FROM Win32_ComputerSystemProduct',
    'WQL', wbemFlagReturnImmediately, nil);
  Enum:= (ObjSet._NewEnum) as IEnumVariant;
  while (Enum.Next(1, Obj, Value) = S_OK) do
  begin
    Obj:= IUnknown(Obj) as SWBemObject;
    msg :=  Obj.Vendor +  Obj.Name + Obj.IdentifyingNumber;

end;

showmessage(msg);  //<--このメッセージ表示後「OK」を押すとエラーとなります。

end.

←解決時は質問者本人がここをチェックしてください。

戻る