Delphi 调用外部程序并等待其运行结束

最新推荐文章于 2024-08-06 17:28:02 发布

小宇飞刀

最新推荐文章于 2024-08-06 17:28:02 发布

阅读量5k

点赞数

分类专栏： Delphi 文章标签： delphi integer string class function windows

本文链接：https://blog.csdn.net/xieyunc/article/details/4140620

版权

Delphi 专栏收录该内容

160 篇文章 6 订阅

订阅专栏

如何让Delphi调用外部程序并等待其运行结束

函数一：

函数二：

function WinExecAndWait32(FileName: string; Visibility: Boolean): integer;    
var   
  zAppName: array[0..512] of char; //存放应用程序名    
  StartupInfo: TStartupInfo;    
  ProcessInfo: TProcessInformation;    
  exitCode: Dword;    
  aVisibility: integer;    
begin   
  StrPCopy(zAppName, FileName);    
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);    
  //给StartupInfo结构体赋值    
  StartupInfo.cb := Sizeof(StartupInfo);    
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;    
  if Visibility then   
    aVisibility := 1   
  else   
    aVisibility := 0;    
   
  StartupInfo.wShowWindow := aVisibility;    
  //调用CreateProcess 创建进程，执行指定的可执行文件    
  if not CreateProcess(nil, zAppName, nil, nil, false   
    , CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS    
    , nil, nil, StartupInfo, ProcessInfo) then   
    Result := -1   
  else   
  begin   
    //等待可执行文件退出    
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);    
    //得到进程终止状态码    
    GetExitCodeProcess(ProcessInfo.hProcess, exitCode);    
    result := Exitcode;    
  end;    
end;

其中参数   Visibility 取值如下：

行号参数含义
1 SW_HIDE                        隐藏这个窗体，并激活其他窗体。
2 SW_MAXIMIZE                最大化指定的窗体。
3 SW_MINIMIZE                 最小化指定的窗体，并按顺序激活最上层的窗体。
4 SW_RESTORE               激活并显示窗体。如果窗体为最小化或者最大化，窗体恢复到原始大
                                          小和置。应用程序当恢复一个最小化的窗体时将指定标记。
5 SW_SHOW                      以当前的大小和位置激活并显示窗体。
6 SW_SHOWDEFAULT
7 SW_SHOWMAXIMIZED    激活并最大化显示窗体。
8 SW_SHOWMINIMIZED     激活并最小化现实窗体。
9 SW_SHOWMINNOACTIVE    最小化窗体，保持其激活状态。
10 SW_SHOWNA                     以当前状态显示窗体，保持其激活状态。
11 SW_SHOWNOACTIVATE   以当前的大小和位置显示窗体，并保持其激活状态。
12 SW_SHOWNORMAL 激活并显示一个窗体。如果窗体为最大化或者最小化，窗体恢复到原始的大小和位置。当窗体第一次显示的时候，应用程序记录标记。