Delphi 自动关闭弹出的窗口

本文整理自网络，侵删。

 用Timer实现的 找寻窗口的句柄 然后发送关闭消息，再把时间线给关掉

在用的时候记得里面的'test'改成弹出的标题就对了

嘿嘿Timer默认时间是1秒哦 记得改掉 至少要3秒吧

在private里面定义

Delphi代码
private 
{ Private declarations } 
tmphandle:Thandle; 



Delphi代码
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
tmphandle:=Findwindow(nil,pchar('test')); 
SendMessage(tmphandle,wm_close,0,0); 
Timer1.Enabled :=False; 
end; 

procedure TForm1.FormActivate(Sender: TObject); 
begin 
Application.MessageBox('test','test',0); 
end; 
 

相关阅读 >>

indy断点续传

Delphi基于sobel算子的图像边缘检测

Delphi中如何控制webbrowser滚动条

Delphi 给动态数组添加一个元素

Delphi字符串反转函数

Delphi 变体数组

Delphi 按字符串长度对tstringlist的元素进行排序

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 删除指定字符串的所有实例

Delphi之声音资源(*.res)的编译方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 自动关闭弹出的窗口