明辉站/技术开发/内容

使桌面的图标文字透明

技术开发2023-08-04 阅读
[摘要]var wnd:HWND; begin Wnd := GetDesktopWindow; Wnd := FindWindowEx(Wnd, 0, 'Progman', nil); Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_...
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; 

……

相关阅读