没弄好吗?
给你些代码吧,应该可以实现你说的问题。。。
已10秒钟为例。。。
procedure TForm1.Timer1Timer(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(nil,'Information');
if h>0 then
PostMessage(h,WM_CLOSE,0,0);
Timer1.Enabled:=False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval:=10000; //一分钟改为60000
Timer1.Enabled:=True;
if MessageDlg('aaa',mtInformation,[mbYes,mbNo],0)=mrYes then
begin
Timer1.Enabled:=False;
//你要执行的程序
end;
end;