刷新桌面

屏幕的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);