这样写就没问题。<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var wnd:HWND;<br>begin<br> Wnd := GetDesktopWindow;<br> Wnd := FindWindowEx(Wnd, 0, 'Progman', 'Program Manager');<br> Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);<br> Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);<br> SendMessage(Wnd, $1026, 0, $ffffffff); <br> SendMessage(Wnd, $1024, 0, $00ffffff); <br> InvalidateRect(Wnd, nil, TRUE); <br>end;<br>