Vistaで適応済更新プログラムを一覧取得するには？ (ID：33316)

名前

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

本文

現在Vista環境がないので、Vistaテストしていないのですが・・・
XPでは、動いているように見えます。

環境 Windows XP SP3 + Delphi5

まず、以下を参考にタイプライブラリを取り込む
Delphi de WMI
http://homepage3.nifty.com/KENCH/open/wmi/delphi_wmi.htm

usesに以下３つ追加
WbemScripting_TLB, ComObj, ActiveX

TButton, TListBoxを配置して
ボタンクリックイベントを以下のようにする

procedure TForm1.Button1Click(Sender: TObject);
var
  locator: ISWbemLocator;
  services: ISWbemServices;
  qfeSet: ISWbemObjectSet;
  tmpEnum: IEnumVariant;
  qfe: OleVariant;
  idx: Integer;
  value: Cardinal;
begin
  locator := CreateOleObject('WbemScripting.SWbemLocator') as ISWbemLocator;
  services := locator.ConnectServer('.', '', '', '', '', '', 0, nil);
  qfeSet := services.ExecQuery('Select * From Win32_QuickFixEngineering',
     'WQL', wbemFlagReturnImmediately, nil);
  ListBox1.Items.Clear;
  tmpEnum := qfeSet._NewEnum as IEnumVariant;
  for idx := 1 to qfeSet.Count-1 do begin
    tmpEnum.Next(1, qfe, value);
    ListBox1.Items.Add(qfe.HotFixID + ' | ' +
      qfe.Description + ' | ' +
      qfe.ServicePackInEffect + ' | ' +
      qfe.InstalledOn + ' | ' +
      qfe.InstalledBy);
  end;
end;

補足
サンプル見てちょっと作ったので、各行の意味はさっぱりわかりません。

参考URL
Delphi de WMI
http://homepage3.nifty.com/KENCH/open/wmi/delphi_wmi.htm

Windowsユーザーのためのワンポイント・レッスン  第58回
のサンプルプログラム
http://itpro.nikkeibp.co.jp/prembk/ITPro/ITBASIC/20050225/156702/

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

戻る