主进程等待子进程运行结束

==========================================
怎样等待程序运行结束
procedure TForm1.Button1Click(Sender: TObject);
var
  sCommandLine: string;
  bCreateProcess: boolean;
  lpStartupInfo: TStartupInfo;
  lpProcessInformation: TProcessInformation;
begin
  sCommandLine := 'D:\TEMP\TEST.EXE';
  // 填 StartupInfo
  FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);
  lpStartupInfo.cb := Sizeof(TStartupInfo);
  lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  lpStartupInfo.wShowWindow := SW_NORMAL;

  bCreateProcess := CreateProcess(nil, PChar(sCommandLine),
    nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
    nil, nil, lpStartupInfo, lpProcessInformation);
  if bCreateProcess then      //等外部进程的结束
    WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);
end;

怎样监视另一个程序的启动和关闭的动作
Procedure WinExecAndWait(CommandLine:String);
  var ComLineBuffer: array[0..512] of char;
      StartupInfo: TStartupInfo;
      ProcessInfo: TProcessInformation;
      Re:Cardinal;
  begin
    StrPCopy(ComLineBuffer,CommandLine);
    FillChar(StartupInfo, Sizeof(StartupInfo), #0);
    StartupInfo.cb := Sizeof(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := SW_HIDE;
    if CreateProcess(nil,
                     ComLineBuffer,          { pointer to command line string }
                     nil,                    { pointer to process security attributes }
                     nil,                    { pointer to thread security attributes }
                     True,                   { handle inheritance flag }
                     CREATE_NEW_CONSOLE or   { creation flags }
                     NORMAL_PRIORITY_CLASS,
                     nil,                    { pointer to new environment block }
                     nil,                    { pointer to current directory name, PChar}
                     StartupInfo,            { pointer to STARTUPINFO }
                     ProcessInfo)            { pointer to PROCESS_INF }
       then
    begin
      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, Re);
      CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }
      CloseHandle(ProcessInfo.hThread);
    end;
  end;

==========================================

ShellExecute与ShellExecuteEx的用法
自：http://blog.sina.com.cn/s/blog_6738da2a0100i7d6.html

ShellExecute：

1.函数功能：
你可以给它任何文件的名字，它都能识别出来并打开它。
2．函数原型：
HINSTANCE ShellExecute(
                           HWND hwnd,
                           LPCTSTR lpOperation,
                           LPCTSTR lpFile,
                           LPCTSTR lpParameters,
                           LPCTSTR lpDirectory,
                           INT nShowCmd
);  
3．参数说明：
hwnd:
用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。
lpOperation:
用于指定要进行的操作。
“open”操作表示执行由lpFile参数指定的程序，或打开由lpFile参数指定的文件或文件夹；
“print”操作表示打印由lpFile参数指定的文件；
“explore”操作表示浏览由lpFile参数指定的文件夹。
当参数设为NULL时，表示执行默认操作“open”。  
lpFile:
用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。
lpParameters:
若lpFile参数是一个可执行程序，则此参数指定命令行参数，否则此参数应为NULL.
lpDirectory:
用于指定默认目录.
nShowCmd:
若lpFile参数是一个可执行程序，则此参数指定程序窗口的初始显示方式，否则此参数应设置为0。
这个参数常用的常数：
SW_HIDE 隐藏窗口，活动状态给令一个窗口
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口，并将其激活
SW_SHOWMINIMIZED 最小化窗口，并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同
若ShellExecute函数调用成功，则返回值为被执行程序的实例句柄。若返回值小于32，则表示出现错误。  
4.使用方法：
例如：
    ShellExecute(NULL,"open","iloveu.bmp",NULL,NULL,SW_SHOWNORMAL);      
用缺省的位图编辑器打开一个叫iloveu.bmp的位图文件，这个缺省的位图编辑器可能是 Microsoft Paint, Adobe Photoshop, 或者 Corel PhotoPaint。
    这个函数能打开任何文件，甚至是桌面和URL快捷方式（ .ink或 .url）。ShellExecute解析系统注册表HKEY_CLASSES_ROOT中所有的内容，判断启动那一个执行程序，并且启动一个新的实例或使用DDE将文件名连到一打开的实例。然后，ShellExecute 返回打开文件的应用的实例句柄。
ShellExecute(NULL, "open", "http://www.microsoft.com", NULL, NULL, SW_SHOWNORMAL); 
    这个代码使你能访问微软的主页。当ShellExecute遇到文件名前面的“http:”时，可以判断出要打开的文件是Web文件，随之启动Internet Explorer 或者 Netscape Navigator 或者任何你使用的别的浏览器打开文件。
ShellExecute还能识别其它协议，象FTP、GOPHER。甚至识别“mailto”，如果文件名指向“mailto:zxn@hq.cninfo.net”,它启动电子邮件程序并打开一个待编辑的新邮件，例如：
    ShellExecute(NULL, "open",“mailto:zxn@hq.cninfo.net”, NULL, NULL, SW_SHOWNORMAL);打开新邮件窗口。
    总之，ShellExecute函数就是如此简单地打开磁盘文件和Internet文件。如果将第二个参数“OPEN”改为“PRINT”或者“EXPLORE”，ShellExecute将能打印文件和打开文件夹。ShellExecute还有一个扩展函数ShellExecuteEx，所带参数中有一个特殊的结构，功能更强，或者任何你使用的别的浏览器打开文件。

======================================================================================