procedure ChangeWallpaper(Bitmap: string);
var
pBitmap : string;
begin
pBitmap:='C:\x.txt';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(pBitmap), SPIF_UPDATEINIFILE);
end;