delphi WaitForSingleObject 例子

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
  hProcess:THandle;

function MyFunction(p:Pointer):DWORD;stdcall;
begin
  //如果进程关闭，就把相关的信息显示出来
  if WaitForSingleObject(hProcess,INFINITE) = WAIT_OBJECT_0  then
  begin
    Form1.edt1.Text := Format('进程 %d 关闭',[hProcess]);
  end;
  Result := 0;
end;


procedure TForm1.btn1Click(Sender: TObject);
var
  pInfo:TProcessInformation;
  sInfo:TStartupInfo;
  Path:array[0..MAX_PATH-1] of Char;
  ThreadID:DWORD;
begin
  //获取系统目录
  GetSystemDirectory(Path,MAX_PATH);
  //记事本的程序地址
  StrCat(Path,'\notepad.exe');
  //初始化
  FillChar(sInfo,SizeOf(sInfo),0);
  //打开一个进程
  if CreateProcess(Path,nil,nil,nil,False,0,nil,nil,sInfo,pInfo) then
  begin
    hProcess := pInfo.hProcess;
    self.edt1.Text := Format('process %d starting...',[hProcess]);
    //开启线程，
    CreateThread(nil,0,@MyFunction,nil,0,ThreadID);
  end;

end;

end.