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; 
 

相关阅读 >>

Delphi路径分割符处理相关函数

Delphi 如何将颜色值转换为灰度颜色值？

Delphi 获取上一次文件访问时间

Delphi 文件，文件夹删除移动和拷贝

Delphi 判断目录是否可写

Delphi 比较两个日期是否大于n天

Delphi unigui执行程序部署有3种形式

Delphi中message消息的使用方法

Delphi 将svg加载到timage控件

Delphi image1 图像旋转90

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

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