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;