var
si: TStartupInfo = (cb: SizeOf(TStartupInfo));
pi: TProcessInformation;
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateProcess(nil, 'c:\windows\system32\notepad.exe', nil, nil, False, 0, nil, nil, si, pi);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0 then
MessageBox(0, 'La aplicacion ha terminado, corre la siguiente!', nil, 0)
else
MessageBox(0, 'Todavia, espera!', nil, 0)
end;