使桌面的图标文字透明

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
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;
 

Similar threads

I
回复
0
查看
311
import
I
I
回复
0
查看
477
import
I
顶部