XProfan

Proc ChangeWallPaper

    Parameters Datei$,Stil%
    External(USER32,SystemParametersInfoA,20,0,Addr(Datei$),$0003)
    WriteIni HKEY_1,Control Paneldesktop,TileWallpaper = Str$(Stil%)
    External(USER32,SystemParametersInfoA,20,0,0,2)Registry aktualisieren mit SPI_SENDWININICHANGE

EndProc

Declare AltesBild$
Cls
ChDir $WinPath
AltesBild$ = ReadIni$(HKEY_1,Control Paneldesktop,WallPaper)

If FindFirst$(*.bmp) >

    Print Taste drücken, um das Hintergrundbild zu wechseln
    WaitInput
    ChangeWallPaper(FindFirst$(*.bmp),Val(ReadIni$(HKEY_1,Control Paneldesktop,TileWallpaper)))
    Print nochmal Taste drücken um das alte Bild wieder einzusetzen
    WaitInput
    ChangeWallPaper(AltesBild$,Val(ReadIni$(HKEY_1,Control Paneldesktop,TileWallpaper)))

EndIf

WaitInput