Zmiana w Rejestrze i Refresh Pulpitu

Pisze prosty programik w Delphi 7 do zmiany tapet pulpitu.
Dokonuje zmiany w rejestrze i podaje mu ścieżke dostępu do nowej tapety.
Ale jak teraz sprawić żeby obraz na pulpicie został odświeżony i pojawiła się nowa tapeta ???

a nie wystarczy po prostu:

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar('C:\Obrazek.bmp'), 
SPIF_SENDWININICHANGE);

?

UpdateWindow(GetDesktopWindow);

UpdateWindow(GetDesktopWindow);

Jakoś mi to nigdy nie działało, jak byś miał także z tym problem to
można targnąć się na wciśnięcie F5:

procedure UpdateDesktop;
var
  Hand: THandle;
begin
  Hand := FindWindow('Progman', 'Program Manager');
  PostMessage(Hand, WM_KEYDOWN, VK_F5, 0);
end;