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

1. uses  
2.     Windows,   
3.     SysUtils,   
4.     Classes,   
5.     ShellAPI;   
6.   
7. function RunAndWait(FileName: string; Visibility: Integer): THandle;   
8. var  
9.     zAppName: array[0..512] of Char;   
10.     zCurDir: array[0..255] of Char;   
11.     WorkDir: string;   
12.     StartupInfo: TStartupInfo;   
13.     ProcessInfo: TProcessInformation;   
14. begin  
15.     try  
16.       StrPCopy(zAppName, FileName);   
17.       GetDir(0, WorkDir);   
18.       StrPCopy(zCurDir, WorkDir);   
19.       FillChar(StartupInfo, SizeOf(StartupInfo), #0);   
20.       StartupInfo.cb := SizeOf(StartupInfo);   
21.       StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   
22.       StartupInfo.wShowWindow := Visibility;   
23.       if not CreateProcess(nil, zAppName, nil, nil, false, Create_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then  
24.       begin  
25.         result := 0;   
26.         Exit;   
27.       end  
28.       else  
29.       begin  
30.         WaitForSingleObject(ProcessInfo.hProcess, INFINITE);   
31.         GetExitCodeProcess(ProcessInfo.hProcess, result);   
32.       end;   
33.     finally  
34.     end;   
35. end;