两个关于外部应用程序的问题

Question

1、在程序中如何判断另一个外部程序是否运行
2、如何在程序中结束另一个外部程序解决给分

Answer 1

用findwindow找到句即可
killwindow可以终止程序

Answer 2

好像没有killwindow阿只有killbutton 哈哈 不好意思 可以发wm_close的消息 用sendmessage

Answer 3

findwindow太不安全了````另外我想找的那个外部进程是隐藏的，只能在任务管理器的进程里找到`````请问如何获取器句柄？如何结束该进程？

Answer 4

用findwindow找到句丙
用SendMessage(aHandle,WM_CLOSE,0,0),就可以关掉了，其中的AHandle就是Findwindow查找到的句丙

Answer 5

var
   wnd:HWND;
begin
   wnd:=Findwindow(nil,'dyyd.pas - 记事本');//根据标题查找句柄
   if wnd>0 then
      sendMessage(wnd,WM_CLOSE,0,0);//发送关闭消息

Answer 6

提供一些代码供参考！
Procedure TForm1.CreateParams(var Params:TCreateParams);
begin
    Inherited CreateParams(Params);
    Params.WinClassName:=MyAppName;
end;{处理“恢复”消息}
Procedure TForm1.RestoreRequest(var message:TMessage);
begin
    if IsIconic(Application.Handle)=TRUE then
        Application.Restore
    else
    Application.BringToFront;
end;
有问题请发信息到我的E-mail:[email protected]