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读写utf-8、unicode格式文本文件

Delphi xe6 利用fastmm4检测内存泄漏

Delphi获取进程pid

Delphi new 为指针分配内存空间

Delphi通过spcomm com口发短信包括pud编码解码

Delphi 字符串对比比较

Delphi代码获取网卡物理地址三种方法

Delphi如何实现模拟组合按键,如发送ctrl_f的按键消息

Delphi获取系统字体列表

Delphi 如何从url提取文件名?

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



打赏

取消

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

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

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

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

评论

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