delphi 定时关闭其他应用程序

fmfhl 发布于 2009-11-11 17:12， 988 次点击

我想请教几个问题。我用delphi做了一个链接
procedure TForm1.Button1Click(Sender: TObject);
var
nResult : Integer ;
begin
nResult := WinExec ( 'C:\Program Files\360\360se3\360SE.exe' , 0 ) ；
if nResult > 31 then
ShowMessage ( '浏览器成功运行！' )

我想让浏览器在空闲 1分钟后强制关闭，应当加入什么代码？
谢谢

1 回复

onepc2009-11-12 17:14

先得到这个360SE的句柄，若是你自己的机用的话，查看他的标题是什么直接findwindow找到，然后。sleep(一分钟)
再postmessage关闭。
也可以得他的进程ID。