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 在windows右键菜单中加上关联

Delphi xe5电脑录像功能

Delphi system 中的数学函数

Delphi编程之系统oem diy

Delphi 文件路径相关的字符串操作

Delphi 压缩图片算法

Delphi webbrowser获取iframe页面内容

Delphi 加壳原理与简单实现加壳

Delphi 内存管理[4]

Delphi query1 导出csv txt

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



打赏

取消

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

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

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

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

评论

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