dekphi 智能《疯狂刷新》辅助工具V3.1更新开源


本文整理自网络,侵删。

  

没什么大变化,只是把《疯狂刷新》每次启动时的splash窗口和“自动添加任务”窗口给隐藏罢。因为不隐藏的话,那两个窗口很讨厌,每次启动都会在屏幕上停留好几秒钟,严重干扰其它正常操作。这个隐藏功能非常容易实现,关键是如何找到这两个窗口的句柄。其中那些窗口类名的数据可以用用Spy++工具获得。详情见源代码。

var
    H, H_Sp, H_Shua, H_Shua2: THandle;
begin
    H := FindWindow(0, '疯狂刷新 V2.1 SP 1');
    H_Sp := FindWindow('Afx:10000000:b:10011:1900015:0', nil);
    if H = H_Sp then H_Sp := 0;
    H_Shua := FindWindow('Afx:10000000:b:10011:1900015:0', '自动刷新 - 正在准备自动刷新任务...');
    H_Shua2 := FindWindow('Afx:10000000:b:10011:1900015:0', '自动刷新 - 正在执行自动刷新任务...');
    ShowWIndow(H_Sp, SW_HIDE);
    ShowWIndow(H_Shua, SW_HIDE);
    ShowWIndow(H_Shua2, SW_HIDE);
end;

相关阅读 >>

Delphi 如何在twebbrowsers之间传递数据

Delphi 键盘记录源代码

Delphi 关于 class helper for ... 语法

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi xe5 给edit增加自定义按钮

Delphi android实例-退出程序(xe8+小米2)

怀念一下这些经常不记得的Delphi代码

Delphi图片增加文字水印

Delphi中webbrowser问题集锦

Delphi 压缩带密码的access数据库的方法

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



打赏

取消

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

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

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

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

评论

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