H
hlsoft
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么使桌面文字透明?即使按F5刷新桌面也要保持透明。<br>用timer来监控桌面是否透明的方法太浪费资源了,应该用DLL比较好吧,哪位高手能告诉我怎么做出这个DLL,并告诉我怎么在程序中调用?谢谢!<br><br>以前有人贴了一段下面的代码,可我不知道那个 TimerCallBack怎么用。<br>function GetDesktopListViewHandle: HWND;<br>var<br> S: string;<br>begin<br> Result := FindWindow('ProgMan', nil);<br> Result := GetWindow(Result, GW_CHILD);<br> Result := GetWindow(Result, GW_CHILD);<br> SetLength(S, 30);<br> GetClassName(Result, PChar(S), 39);<br> if PChar(S) <> 'SysListView32' then Result := 0;<br>end;<br><br>function TransParentDesktopIconText: integer;<br>var<br> itemCount: integer;<br> DesktopListViewHandle: HWND;<br>begin<br> DesktopListViewHandle := GetDesktopListViewHandle;<br> SendMessage(DesktopListViewHandle, LVM_SETTEXTBKCOLOR, 0, CLR_NONE);<br> itemCount := SendMessage(DesktopListViewHandle, LVM_GETITEMCOUNT, 0,<br> 0);<br> Result := SendMessage(DesktopListViewHandle, LVM_REDRAWITEMS, 0,<br> ItemCount - 1)<br>end;<br><br>procedure TimerCallBack(Wnd: HWND; Msg, idEvent: UINT; dwTime: DWORD);<br> stdcall; far; export;<br>begin<br> if SendMessage(GetDesktopListViewHandle, LVM_GETTEXTBKCOLOR, 0, 0) <> -1 then<br> TransParentDesktopIconText<br>end;