Druhý způsob je kratší,

tapetu zobrazí na střed a parametrem je pouze soubor s obrázkem. Návratovým parametrem funkce je true nebo false v závislosti na úspěšném či neúspěšném pokusu o provedení akce.
function Wallpaper(soubor: string):boolean;
type a=array [0..255] of char;
var nazev: ^a;
begin
new(nazev);
strpcopy(nazev^,soubor);
dispose(nazev);
if SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nazev,SPIF_SENDCHANGE ) then Result:=true
else Result:=false;
end;
Na závěr jedno téma na volnou diskusi. Jeden ze čtenářů přišel se zajímavým dotazem, zda by nebylo možné nejen tapetu tímto celkem jednoduchým způsobem změnit, ale jestli by nebylo možné přímo tuto bitmapu animovat. Pokud snad někdo ví, zda a jak je to možné provést, ať nám zkusí poradit v diskusi. Jde nám ale o opravdovou animaci, ne o pouhé "rychlé" střídání obrazovek, které by mělo do plynulosti daleko.