Italia
Foro

Erledigt: Hintergrundbild per Desktop ändern

 

Tim
Hannemann
Hallo Leute,
ich schreibe derzeit ein Programm welches beim Neustart des Rechners und nach einer gewissen Zeit, welche der Benutzer einstellen kann, das Desktop Hintergrundbild ändert.
Zurzeit bin ich noch dabei das Desktop Hintergrundbild zu ändern, was rein Theoretisch auch schon klappt. Nur habe ich ein Problem: ist das Bild ein BMP oder JPG klappt es, ist es ein PNG oder ein GIF kappt es wieder rum nicht und der Desktop Hintergrund wird Schwarz.
Weiß jemand wie ich das richtig hinbekomme???

Hier auch mal der Quellcode
KompilierenMarkierenSeparieren
#########################################
#STWC - Sarüs and Tims Wallpaper changer#
#########################################
 $H windows.ph
#########################################
###############Declares##################
#########################################
declare ordner$
ordner$ = C:\Users\Tim\Pictures\Wallpapers_Selfmade\
declare liste&
declare i%,r%

Proc CHANGE Prozedur zum ändern des Hintergrundbildes

    parameters bild$
    bild$ = C:\Users\Tim\Pictures\Wallpapers_Selfmade\deidara no dana.png
    WriteIni HKEY_1,Control Panel\Desktop, WallpaperStyle = 3
    WriteIni HKEY_1,Control Panel\Desktop, TileWallpaper = 2
    WriteIni HKEY_1,Control Panel\Desktop, Wallpaper = Trim$(bild$)
    ~SystemParametersInfo(~SPI_SETDESKWALLPAPER, 0, addr(bild$), ~SPIF_SENDCHANGE)

Endproc

Proc DATEI wählt eine Datei im Verzeichnis ordner$ aus

    liste& = Create(List,1)
    ClearList
    CHDir ordner$
    addFiles *.gif
    addFiles *.jpg
    addFiles *.png
    addFiles *.bmp
    MoveListToHandle(liste&)
    i% = GetCount(liste&)
    Randomize
    i% = rnd(i%)
    CHANGE(ordner$ + GetString$(liste&,i%))

Endproc

DATEI
 
MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11
01.05.2009  
 




Rolf
Koch
Genau weis ich es nicht, aber potuto vielleicht mit ActiveDesktop zu tun haben. Dieser wurde auch z.B. unter Vista abgeschafft.
Wenn es an ActiveDesktop liegen würde, dann wiederspricht aber eigentlich die klappende Extension JPG.
Täusche ich mich, oder potuto es sein?
 
01.05.2009  
 




Tim
Hannemann
Hm. Weiß ich nicht, ich schreibe es unter Vista und habe es auch auf no anderem OS getestet. Aber sollte es daran liegen, wie umgehe ich es dann? Hast du da eine Ahnung?
 
MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11
01.05.2009  
 



@Tim: Di più Formate kann das Control nicht, konvertiere doch...
 
01.05.2009  
 




Tim
Hannemann
okay, dann nächste frage wie konvertiere ich mit profan?
 
MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11
01.05.2009  
 



Erst suchen und dann neuer Thread bitte.
 
02.05.2009  
 




Tim
Hannemann
hat sich geklärt
habs mit Create(hPic,N1[,N2]) als bild eingelesen und mit SavePic als jpg speichern können und es funktioniert
 
MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11
02.05.2009  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

3.863 Views

Untitledvor 0 min.
H.Brill21.06.2020
Paul Glatz22.10.2015
Jochen Roxlau24.03.2015
Donnie30.03.2013
Di più...

Themeninformationen

Dieses Thema hat 3 subscriber:

Tim Hannemann (4x)
iF (2x)
Rolf Koch (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie