Для работы процедуры требуется подключить (поместить в раздел 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;