刷新桌面

屏幕的Refresh(只需一行!) --------------------------------------------------
RedrawWindow(0,nil,0,RDW_ERASE or RDW_INVALIDATE or RDW_ALLCHILDREN);
　　　　　　　　|　　 |　　　　　　　 ---　 ----
　　　　　　 handle　RGN(可刷新局部屏幕)
procedure RefreshDesktop;
var
hDesktop: HWND;
begin
hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;
*************
SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);