实现执行外部程序，并等待程序结束的函数。
作者:陆岛工作室
type
TExecState = (esNormal, esMinimized, esMaximized, esHidden);
function ExecuteFileWait(Handle: HWND; const FileName, Params, StartDir: string; InitialState: TExecState): Integer;
{
Handle: 传入当前窗口或 Applicaton 的句柄
FileName: 需要传入的文件名
Params: 执行文件所带的参数
StartDir: 执行文件启动路径
InitialState: 窗口显示模式
}
实现代码如下：
{ExecuteFileWait}
functionExecuteFileWait(Handle:HWND;constFileName,Params,StartDir:string;InitialState:TExecState):Integer;
const
ShowCommands:array[TExecState]ofLongInt=(SW_SHOWNORMAL,SW_MINIMIZE,SW_SHOWMAXIMIZED,SW_HIDE);
var
Info:TShellExecuteInfo;
ExitCode:DWORD;
FActive:HWND;
begin
FillChar(Info,SizeOf(Info),0);
Info.cbSize:=SizeOf(TShellExecuteInfo);
withInfodo
begin
fMask:=SEE_MASK_NOCLOSEPROCESS;
Wnd:=Application.MainForm.Handle;
lpFile:=PChar(FileName);
lpParameters:=PChar(Params);
lpDirectory:=PChar(StartDir);
nShow:=ShowCommands[InitialState];
end;
FActive:=GetActiveWindow;
ifShellExecuteEx(@Info)then
begin
EnableWindow(Handle,False);
repeat
Application.ProcessMessages;
GetExitCodeProcess(Info.hProcess,ExitCode);
until(ExitCode<>STILL_ACTIVE)orApplication.Terminated;
EnableWindow(Handle,True);
ShowWindow(Handle,SW_SHOW);
SetActiveWindow(FActive);
SetForegroundWindow(FActive);
Result:=ExitCode;
end
elseResult:=-1;
end;
functionExecuteFileWait(Handle:HWND;constFileName,Params,StartDir:string;InitialState:TExecState):Integer;
const
ShowCommands:array[TExecState]ofLongInt=(SW_SHOWNORMAL,SW_MINIMIZE,SW_SHOWMAXIMIZED,SW_HIDE);
var
Info:TShellExecuteInfo;
ExitCode:DWORD;
FActive:HWND;
begin
FillChar(Info,SizeOf(Info),0);
Info.cbSize:=SizeOf(TShellExecuteInfo);
withInfodo
begin
fMask:=SEE_MASK_NOCLOSEPROCESS;
Wnd:=Application.MainForm.Handle;
lpFile:=PChar(FileName);
lpParameters:=PChar(Params);
lpDirectory:=PChar(StartDir);
nShow:=ShowCommands[InitialState];
end;
FActive:=GetActiveWindow;
ifShellExecuteEx(@Info)then
begin
EnableWindow(Handle,False);
repeat
Application.ProcessMessages;
GetExitCodeProcess(Info.hProcess,ExitCode);
until(ExitCode<>STILL_ACTIVE)orApplication.Terminated;
EnableWindow(Handle,True);
ShowWindow(Handle,SW_SHOW);
SetActiveWindow(FActive);
SetForegroundWindow(FActive);
Result:=ExitCode;
end
elseResult:=-1;
end;
示范:
begin
ExecuteFileWait(Application.Handle,'C:\Windows\NotePad.EXE','C:\A.txt','',esMaximized);
ShowMessage('OK!程序已退出！');
end;
1、雷林鹏分享：MySQL 函数
2、将行政区域导入SQL SERVER
3、【项目总结】之——JS分割字符串
4、JAVA 这一篇--Verbose
5、Vue+elementUI build打包后字体图标丢失问题
ExecuteFileWait(Application.Handle,'C:\Windows\NotePad.EXE','C:\A.txt','',esMaximized);
ShowMessage('OK!程序已退出！');
end;
1、雷林鹏分享：MySQL 函数
2、将行政区域导入SQL SERVER
3、【项目总结】之——JS分割字符串
4、JAVA 这一篇--Verbose
5、Vue+elementUI build打包后字体图标丢失问题