我的应用程序使用的Riched20.dll文件存在一些问题,应用KB884047修补程序修复此问题,以避免旧版本的Windows版本出现问题,我想检测此修补程序何时出现问题在系统中应用,所以如何使用delphi检查我的系统中是否安装了特定的修补程序(Windows更新)?
答案 0 :(得分:9)
前一段时间,我在博客上发表了关于此主题的文章search for installed windows updates using Delphi, WMI and WUA
检查此示例代码。
//use in this way ISHotFixID_Installed('KB982799')
function ISHotFixID_Installed(const HotFixID : string): Boolean;
var
updateSession : OleVariant;
updateSearcher : OleVariant;
updateEntry : OleVariant;
updateSearchResult : OleVariant;
UpdateCollection : OleVariant;
oEnum : IEnumvariant;
iValue : LongWord;
begin
result:=False;
updateSession:= CreateOleObject('Microsoft.Update.Session');
updateSearcher := updateSession.CreateUpdateSearcher;
//this line improves the performance , the online porperty indicates whether the UpdateSearcher goes online to search for updates. so how we are looking for already installed updates we can set this value to false
updateSearcher.online:=False;
updateSearchResult:= updateSearcher.Search(Format('IsInstalled = 1 and Type=%s',[QuotedStr('Software')]));
UpdateCollection := updateSearchResult.Updates;
oEnum := IUnknown(UpdateCollection._NewEnum) as IEnumVariant;
while oEnum.Next(1, updateEntry, iValue) = 0 do
begin
Result:=Pos(HotFixID,updateEntry.Title)>0;
updateEntry:=Unassigned;
if Result then break;
end;
end;