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 emptyrecycle() 清空回收站

Delphi 处理之文本文件

Delphi richedit控件的用法

Delphi windows 编程[5] - 学习窗体生成的过程五

Delphi 关于access的日期类型字段比较的一点认识

Delphi中的处理事件 application.processmessages

Delphi 通过注册表获取系统版本和cpu型号

Delphi findwindow的一些用法

Delphi遍历所有控件

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...