Процедура обновления рабочего стола Microsoft Windows на Delphi
С помощью этой процедуры можно создать эмуляцию нажатия клавиши F5 на рабочем столе (Desktop)
Для работы процедуры требуется подключить (поместить в раздел uses) следующие модули: Messages, Windows.
procedure RefreshDesktop; var h : THandle; begin h := FindWindow('ProgMan', nil); h := GetWindow(h, GW_CHILD); PostMessage(h, WM_KEYDOWN, VK_F5, 0); end;
