XProfan

Jac
de
Lad

là peux seulement Andreas Miethe aider.

Ansonsten versuch la fois deinen Variablen neue Namen trop donner, peut-être kollidiert une de dir avec einer de qui PCU (lieu allen un WP. voran ou bien 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. gibt es mais aussi une autre, directe Possibilité pour den sofortigen change des Hintergrundbildes sous XP?

Windows-Tablet mit Win11, XProfan X4

Kompilieren Marque Séparation

Jörg
Sellmeyer

avec cela ca va:

Proc ChangeWallPaper

    Paramètres Dossier$,Stil%
    Externe(USER32,SystemParametersInfoA,20,0,Addr(Dossier$),$0003)
    WriteIni HKEY_1,Contrôle Paneldesktop,TileWallpaper = Str$(Stil%)
    Externe(USER32,SystemParametersInfoA,20,0,0,2)Registry aktualisieren avec SPI_SENDWININICHANGE

ENDPROC

Déclarer AltesBild$
Cls
ChDir $WinPath
AltesBild$ = ReadIni$(HKEY_1,Contrôle Paneldesktop,WallPaper)

Si $ FindFirst(*.bmp) >

    Imprimer bouton drücken, um cela Hintergrundbild trop échanger
    WaitInput
    ChangeWallPaper($ FindFirst(*.bmp),Val(ReadIni$(HKEY_1,Contrôle Paneldesktop,TileWallpaper)))
    Imprimer nochmal bouton drücken um cela vieille Bild wieder einzusetzen
    WaitInput
    ChangeWallPaper(AltesBild$,Val(ReadIni$(HKEY_1,Contrôle Paneldesktop,TileWallpaper)))

EndIf

WaitInput

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

Hans-Jürgen
Trog

allô Jörg,

merci pour den Code. avec cela peut BMPs verwendet volonté. mais comment allez cela avec JPGs?
im XProfan-Forum - Programmation hatten wir cela autrefois aussi diskutiert (Fil vom 7.1.05; avec cherche pour wallpaper.pcu venez on vite dorthin). Daraus kam ensuite qui Hinweis de Andreas Miethe sur qui PCU, nit qui cela ging.

Nebenbei, qui Fehlermeldung zeigt aussi qui la ligne dans qui PCU, dans qui réellement 2la fois num& deklariert wird. et dadurch ist ensuite plan Stop beim abarbeiten

Viele Grüße

Hans-Jürgen

venez on irgendwie à Andreas Miethe per Mail ran?

Windows-Tablet mit Win11, XProfan X4

Michael
Dell

allô Hans,

am besten sur cela Kontaktformular sur seiner aktuellen Page d'accueil: [web]https://www.ampsoft.eu[/web]

Salu Michael...

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

tu peux avec o.g. Funktion alle Bilddateien verarbeiten, Du musst cela alors pas sur BMP beschränken.

Hans-Jürgen
Trog

non, funktioniert pas avec JPGs. avec BMP ca va

Windows-Tablet mit Win11, XProfan X4

Jörg
Sellmeyer

Seltsam - chez mir ca va aussi avec jpgs

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

Thomas
Freier

und dir naturellement seulement, si im WINDOWS Verzeichnis une *.jpg vorhanden ist. était chez Je ne et es wurde rien angezeigt.
@ Jörg: une Rückänderung ist malheureusement seulement possible, si auparavant un Hintergrundbild eingestellt était. sur une farbigen Hintergrund wechselt es pas zurück.

Gruß Thomas
Windows XP SP2, XProfan X2