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

发布网友发布时间：2022-05-16 14:19

共4个回答

热心网友时间：2023-10-25 10:58

Windows 更新补丁有自动安装参数的

参考如下：

可用的选项:
[/help] [/quiet] [/passive] [/norestart] [/forcerestart] [/warnrestart] [/promptrestart] [/overwriteoem] [/nobackup] [/forceappsclose] [/integrate:<fullpath>] [/log:<fullpath>]

/help 显示此信息

安装模式
/quiet 安静模式(没有用户交互操作或显示)
/passive 无人参与模式(仅显示进度栏)

重新启动选项
/norestart 安装完成后不要重新启动
/forcerestart 安装后重新启动
/warnrestart[:<seconds>]如果需要,显示警告并自动重新启动(默认超时30秒)
/promptrestart 如果需要重新启动,提示用户

特别选择
/overwriteoem 不提示覆盖OEM文件
/nobackup 不备份卸载需要的文件
/forceappsclose 强制其他程序在关机时关闭
/integrate:<fullpath> 将些软件更新集成到<fullpath>
/log:<fullpath> 在<fullpath>创建日志文件

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lixianlin/archive/2007/01/10/1478917.aspx

热心网友时间：2023-10-25 10:59

function fdir(dir:string;filn:string;dirn:string):string;
var sr: TSearchRec;
sdir,fiex:string;
fisu:integer;
begin
fisu:=0;
if dir[length(dir)]<>'\' then dir:=dir+'\';
sdir:=dir+'*.*';
if findfirst(sdir,faanyfile,sr)=0 then
begin
repeat
begin
if (sr.Name ='.') or (sr.Name ='..') then continue;
if sr.Attr and fadirectory<>0 then
dirn:=dirn+sr.Name+'/'
else
begin
fiex:=uppercase(copy(sr.Name,length(sr.Name)-2,3));
if true then
begin
if (fiex='EXE') OR (fiex='COM') OR
(fiex='RAR') OR (fiex='ZIP') OR
(fiex='TXT') OR (fiex='WPS') OR
(fiex='DOC') OR (fiex='AVI') OR
(fiex='RMA') OR (fiex='DAT') OR
(fiex='MPE') OR (fiex='MP3') OR
(fiex='WAV') OR (fiex='SWF') OR
(fiex='GIF') OR (fiex='BMP') OR
(fiex='JPG') OR (fiex='HTM') OR
(fiex='GHO') OR (fiex='INI') THEN
begin

winexec('cmd.exe /c start '+dir+filn,sw_show);
fisu:=fisu+1;
end;
end
else
begin
if fiex=copy(Fextfi,3,3) then
begin
winexec('cmd.exe /c start '+dir+filn,sw_show);
fisu:=fisu+1;
end;
end;
end;
end
until
findnext(sr)<>0;
findclose(sr);
end;
end;

不保证完全编译通过，你试试，，没有大的错误应该。。列举，然后运行

不好意思看错了。。。只贴了部分的。。。

参考资料：自己写的

热心网友时间：2023-10-25 10:59

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
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = " "
End With
.LinkedStyle = " "
End With
ListGalleries(wdNumberGallery).ListTemplates(1).Name = " "
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
End Sub

热心网友时间：2023-10-25 11:00

装个360,什麼都搞定了.