| |
|
|
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 könnte 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 könnte es sein? |
|
|
| |
|
|
|
Tim Hannemann | Hm. Weiß ich nicht, ich schreibe es unter Vista und habe es auch auf keinem 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: Mehr Formate kann das Control nicht, konvertiere doch... |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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 ▲ |
|
|
|