各位请给个回应,谢谢!

Question

  我在桌面中用程序改变了墙纸,但需点击右键刷新才可实现.我添加了button在其中加
sendmessage(),无效不能改变.请教如何实现?

Answer 1

varhDesktop: HWND;beginhDesktop := 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;

Answer 2

或：
SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);