請問喔  如何刪除自己 >

------
--
Regards,
Skyer

利用CreateProcess的最後一個參數lpProcessInformation。    如果你CreateProcess成功，你可以從lpProcessInformation得到new process的handle。    把這個handle記錄下來，當要結束此process時，可以利用TerminateProcess，把handle傳入即可。    看來很簡單的樣子，那範例就不用囉！

感謝您 ^^    我測了一下，發現關掉 OK! 以下是我的程式 ---------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  exit: Cardinal;
begin
  GetExitCodeProcess(PI.hProcess, exit);
  TerminateProcess(PI.hProcess, exit);
end;

PI 是 CreateProcess 最後一個參數 TProcessInformation

------
--
Regards,
Skyer