掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
システム情報について (ID：15738)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自分のPCはメーカー製でないので、上手く行っているか分からないのですが こんな感じで如何でしょう？Delphi2005です。 uses ActiveX, WbemScripting_TLB; procedure TForm1.Button2Click(Sender: TObject); var Locator: ISWbemLocator; Service: ISWbemServices; ObjSet: ISWbemObjectSet; Enum: IEnumVariant; Obj: OleVariant; Value: Cardinal; begin Locator := CoSWbemLocator.Create; Service := Locator.ConnectServer('.', 'root\cimv2', '', '', '', '', 0, nil); ObjSet:= Service.ExecQuery('SELECT * FROM Win32_ComputerSystem', 'WQL', wbemFlagReturnImmediately, nil); Enum:= (ObjSet._NewEnum) as IEnumVariant; while (Enum.Next(1, Obj, Value) = S_OK) do begin Obj:= IUnknown(Obj) as SWBemObject; Edit1.Text := Obj.Manufacturer; Edit2.Text := Obj.Model; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.