var
Form1: TForm1;

implementation
uses ShellApi;
var
SEI: TShellExecuteInfo;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
FillChar(SEI, SizeOf(SEI), 0);
SEI.cbSize := SizeOf(TShellExecuteInfo);
With SEI do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := 'c:\winnt\notepad.exe';
lpDirectory := 'c:\';
lpVerb:='open';
nShow := SW_NORMAL;
end;
ShellExecuteEx(@SEI)
end;


procedure TForm1.Button1Click(Sender: TObject);
var
uExitCode:ULONG;
begin
GetExitCodeProcess(SEI.hProcess,uExitCode);
TerminateProcess(SEI.hProcess,uExitCode);
end;