最近刚学delphi,看到以下二例关于关闭外部正在运行程序的例子。
  在例1中要求输入应用程序窗口名,但不管我输入notepad还是记事本都无法关闭记事本程序,想关闭浏览器,也不知道窗口名是iexplore还是如“新浪首页”之类的,请专家解答。谢谢!
  在例2中可以关闭Iexplore,但如果换成notepad或Calc都不能关闭记事本或计算器应用程序,反而多启动了一个应用程序,不知道为什么?谢谢解答!例1:
procedure TForm1.Button1Click(Sender: TObject);
var
hWndClose: HWnd; 
str: String; 
begin
str := InputBox('提示','请输入应用程序窗口名:',''); 
if str <> '' then begin
hWndClose := FindWindow(nil, PChar(str));
if hWndClose <> 0 then//file://如果查找成功,则发送消息,关闭指定的窗口
SendMessage(hWndClose,WM_CLOSE,0,0);
else
ShowMessage('没找到指定的应用程序,所以无法关闭!');
end;
end;例2:
begin
dde1.SetLink('Iexplore','www_exit'); //设置要关联的程序,以及要执行的操作,这里是关闭ie.
dde1.OpenLink;//打开关联
dde1.RequestData('www_exit');
dde1.CloseLink;
end;