答案已经由O*O在另一个问题中回答了:<br>procedure Tform.Button5Click(Sender: TObject);<br>var wnd:HWND;<br>begin<br> Wnd := GetDesktopWindow;<br> Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);<br> Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);<br> Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);<br> SendMessage(Wnd, $1026, 0, $FFffffff); //this<br> SendMessage(Wnd, $1024, 0, $00FFFFFF);<br> InvalidateRect(Wnd, nil, TRUE);<br>end;<br>