delphi实现依次运行指定目录下的所有文件...

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:53:21
事情是这样的：我想手动更新系统补丁，但是补丁文件太多，点起来手酸...能不能用delphi实现依次运行所有的补丁文件，并自动选择“下一步”，“我同意”，“现在不重新启动”，“完成”？能不能隐藏运行？
在运行完所有文件后弹出提示“补丁已安装完毕请重启计算机”

请提供delphi 代码

With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = "%1、 "
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0.74)
.TabPosition = CentimetersToPoints(0.74)
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = wdUndefined
.Italic = wdUndefined
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined