delphi 建立线程监视

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;