掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WMIで情報取得、showmessageするとエラーとなる (ID:41260)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
訂正です。 QFormsを組み込むとPG実行時に「qtinitf.dll」が必要になります。 Formsに変更して「Application.Initialize; 」追加でdll不要で動作しました。 program Project2; uses Windows, Messages ,Dialogs, ActiveX, WbemScripting_TLB,Forms; 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.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.