Prozess starten und wieder killen

[mezen]

Hi,

ich steh grad etwas auf dem Schlauch. Ich möchte einen Prozess per Delphi starten und auf Wunsch diesen Prozess auch wieder zu killen.

Delphi-Quellcode:

var
  FHandle: THandle;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FHandle := ShellExecute(Self.Handle,
    nil,
    PChar('notepad.exe'),
    nil,
    nil,
    SW_SHOW);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TerminateProcess(FHandle, 0);
end;

Den Prozess starten klappt wunderbar, den Prozess killen klappt nicht :\