获取桌面刷新消息(HOOK的问题)(100分)

  • 主题发起人 主题发起人 Sewim
  • 开始时间 开始时间
S

Sewim

Unregistered / Unconfirmed
GUEST, unregistred user!
本人现在正在编写一个使2000下桌面图标透明的程序.
目前已经可以实现透明,但当刷新时,未能获取这个消息,而又不能透明了
现在这个程序因这个刷新的消息未能获取及处理,使这个程序不能继续下去
现在知道是用hook来实现这个功能,但本人现在写不出来,哪位大虾帮帮忙
我弄这个已经好长时间了,就是搞不出来,头都大了...

请各位帮忙...
非常感谢...
 
共享 知识 可否?
可:大家回答此题
否:这里结束
-_-#
 
要用到系统钩子。陈宽达的《深度历险》一书有此例子
 
老大,救我!, 这位兄弟真是挺幽默的....

网中戏:
到现在我知道这个问题是用钩子做出来的,但我还不知道怎么去使用,或者怎么用钩子实现这个功能...
 
截获WM_SETTINGCHANGE 消息就可以了。
 
weiliu
能不能给我多一点的提示啊
能给我写一下代码那更感谢你了,若可以的话,我另外再给你一百分
 
别沉了...
 
HOOK的问题怎么就没人理呢...
 
高手呢....[:(!]
 
气死了,居然这么久了也没人帮我解决
 
楼主透明是如何实现的.
 
procedure Transparence();
var wnd:HWND;
begin
Wnd := GetDesktopWindow;
Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);
Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);
Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);
SendMessage(Wnd, $1026, 0, $ffffffff);
SendMessage(Wnd, $1024, 0, $00ffffff);
InvalidateRect(Wnd, nil, TRUE);
end;
 
后退
顶部