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 用代码实现为程序创建快捷方式的二种方法

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

Delphi判断字符串是否是数字、字母、大小写字母

Delphi之memo组件

Delphi窗口界面必学的知识

Delphi windows 编程[12] - 菜单与菜单资源(1-3)

Delphi ado的事务处理例子

Delphi几个进制相关的代码(hextoint、hextoasc)

delph 自带url编码函数 tnetencoding

Delphi编写聊天程序

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



打赏

取消

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

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

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

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

评论

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