释放 exe

Question

因 一些原因，我调用了 下面的方法调用了 exe :   ShellExecute(handle,'open','dingwei.exe','','',SW_SHOWNORMAL);现在 我想在 关闭总窗口的时候，把它释放掉。

Answer 1

你在主form的close事件里面调用:
procedure Close_EXE;
var
 HWndPro : HWnd ;
begin
  HWndPro:=FindWindow(nil,'dingwei.exe');
  if HWndPro<>0 then
   SendMessage(HWndPro,WM_CLOSE,0,0);
end  ;

Answer 2

最好用CreateProcess,可以得到ProcessInfo.dwProcessId，然后用TerminateProcess(hProcess, dwExitCode)关闭

Answer 3

如上
SendMessage(HWndPro,WM_CLOSE,0,0) --〉postmessage(HWndPro,WM_quite,0,0)效果一样

Answer 4

可以利用findwindow查找标题，然后找到句柄就可以sendmessage发送wm_close就可以了

Answer 5

没关掉呀？
ShellExecute(handle,'open','dingwei.exe','','',SW_SHOWNORMAL);这个 .exe 也是我用 delphi 写的，是另外一个表单，用以上的方法不起作用。