主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:157次

没什么大变化,只是把《疯狂刷新》每次启动时的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;


关键字词: