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

名前

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

本文

D様、monaa様

アドバイスありがとうございます。
Application.Initialize」からヘルプを確認してQFormユニットを追加することでエラーが出なくなりました。残念ながら私には理由は分かりません。
「Application.Initialize;」はなくてもＯＫでした。

初心者で手探り状態なので今後もよきアドバイスよろしくお願いします。

変更後のソース−−−−−

program  Project2;

uses
  Windows, Messages ,Dialogs, ActiveX, WbemScripting_TLB,QForms;

var
  Locator: ISWbemLocator;
  Service: ISWbemServices;
  ObjSet: ISWbemObjectSet;
  Enum: IEnumVariant;
  Obj: OleVariant;
  Value: Cardinal;
  msg: string;
//  Application: TApplication;    ←なくてもＯＫなのでコメント

// {$R *.res}  ←使用していないのでコメント

begin
//  Application.Initialize;  ←なくてもＯＫなのでコメント
  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 + #13#10 +  Obj.Name + #13#10 + Obj.IdentifyingNumber;

end;

showmessage(msg);

end.

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

戻る