建立线程监视

var
  Form1: TForm1;
  Hprocess: THandle;
implementation
{$R *.dfm}

function MyThread(P: Pointer): DWORD; stdcall;
begin
  if WaitForSingleObject(Hprocess, INFINITE) = WAIT_OBJECT_0 then
    Form1.Text := Format('进程 %d 已关闭', [hProcess]);
  Result := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  pInfo: TProcessInformation; sInfo: TStartupInfo;
  Path: array[0..MAX_PATH - 1] of Char;
  ThreadID: DWORD; sPath: PChar;
begin
  GetSystemDirectory(Path, MAX_PATH);
  sPath := PChar(path + '/cmd.exe'); //StrCat(Path, '/cmd.exe');
  FillChar(sInfo, SizeOf(sInfo), 0);
  if CreateProcess(sPath, ' /k md haiou', nil, nil, False,
    0, nil, nil, sInfo, pInfo) then
  begin
    hProcess := pInfo.hProcess;
  {获取进程句柄}
    Text := Format('进程 %d 已启动', [hProcess]);
    CreateThread(nil, 0, @MyThread, nil, 0, ThreadID);
 {建立线程监视}
  end;
end;