XProfan

Jac
de
Lad

there can only Andreas Miethe help.

otherwise attempt time your variables new names To give, Perhaps kollidiert one of you with of/ one from the PCU (place all one WP. forth or so).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Hans-Jürgen
Trog

Viell. there but too another, direct Possibility for sofortigen change the Hintergrundbildes XP?

Windows-Tablet mit Win11, XProfan X4

Jörg
Sellmeyer

so goes it:

Compile Mark Separation

Proc ChangeWallPaper

    Parameters File$,Style%
    External(USER32,SystemParametersInfoA,20,0,Addr(File$),$0003)
    WriteIni HKEY_1,Control Paneldesktop,TileWallpaper = Str $(Style%)
    External(USER32,SystemParametersInfoA,20,0,0,2)Registry update with SPI_SENDWININICHANGE

ENDPROC

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

If FindFirst$(*.bmp) >

    Print Button pressing, circa the Wallpapers To change
    WaitInput
    ChangeWallPaper(FindFirst$(*.bmp),Val(ReadIni$(HKEY_1,Control Paneldesktop,TileWallpaper)))
    Print again Button pressing circa the old Image again einzusetzen
    WaitInput
    ChangeWallPaper(AltesBild$,Val(ReadIni$(HKEY_1,Control Paneldesktop,TileWallpaper)))

EndIf

WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Hans-Jürgen
Trog

Hello Jörg,

thanks for code. so can BMPs uses go. but how does that with JPGs?
in the XProfan-Forum - Programming had we the then too discusses (Thread of 7.1.05; with Search to wallpaper.pcu comes one quick there). from it coming then the Info of Andreas Miethe on The PCU, nit the the went.

on the side, The Error Message shows too The Line in the PCU, in the objectively 2time num& declared becomes. and therefore is then even Stop at work out

greetings

Hans-Jürgen

comes one somehow on Andreas Miethe by Mail ran?

Windows-Tablet mit Win11, XProfan X4

Michael
Dell

Hello Hans,

best over the Kontaktformular on its actually Homepage: [web]https://www.ampsoft.eu[/web]

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

You can with o.g. function any Bilddateien process, You must the means not BMP limit.

Hans-Jürgen
Trog

No, not working with JPGs. with BMP goes it

Windows-Tablet mit Win11, XProfan X4

Jörg
Sellmeyer

strange - by me goes it too with jpgs

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Thomas
Freier

It's all right naturally only, if in the WINDOWS directory a *.jpg present is. was not at me and it watts nothing displayed.
@ Jörg: a Rückänderung is unfortunately only possible, if before one Wallpapers tuned was. On a farbigen background changes not back.

Gruß Thomas
Windows XP SP2, XProfan X2