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;
