| |
|
|
Tim Hannemann | allô gens, j'écris derzeit un Programme welches beim Neustart des Rechners et pour einer gewissen Zeit, quelle qui Benutzer einstellen peux, cela Desktop Hintergrundbild ändert. Zurzeit suis je encore dabei cela Desktop Hintergrundbild trop changement, quoi rein Theoretisch aussi déjà klappt. seulement habe je un Problem: ist cela Bild un BMP ou bien JPG klappt es, ist es un PNG ou bien un GIF kappt es wieder rum pas et qui Desktop Hintergrund wird noir. sais quelqu'un comment je cela richtig hinbekomme???
ici aussi la fois qui Quellcode KompilierenMarqueSéparation#########################################
#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 | oui c'est ca weis je es pas, mais pourrait peut-être avec ActiveDesktop trop 1faire avons. cette wurde aussi z.B. sous Vue abgeschafft. si es à ActiveDesktop liegen serait, ensuite wiederspricht mais eigentlich qui klappende Extension JPG. Täusche je mich, ou bien pourrait es son? |
|
|
| |
|
|
|
Tim Hannemann | Hm. sais je pas, j'écris es sous Vue et habe es aussi sur aucun anderem OS getestet. mais sollte es daran liegen, comment umgehe je es ensuite? la hâte du là une Ahnung? |
|
|
| MfG Timää
------------
Betriebssysteme: Windows Vista
Profanversion: XProfan 11 | 01.05.2009 ▲ |
|
|
|
|
| @Tim: plus Formate peux cela Contrôle pas, konvertiere doch... |
|
|
| |
|
|
|
Tim Hannemann | okay, ensuite prochain frage comment konvertiere je avec profan? |
|
|
| MfG Timää
------------
Betriebssysteme: Windows Vista
Profanversion: XProfan 11 | 01.05.2009 ▲ |
|
|
|
|
| seulement chercher et ensuite neuer Fil s'il te plaît. |
|
|
| |
|
|
|
Tim Hannemann | hat sich geklärt habs avec Créer(hPic,N1[,N2]) comme bild lire et SavePic comme jpg Sauver peut et es funktioniert |
|
|
| MfG Timää
------------
Betriebssysteme: Windows Vista
Profanversion: XProfan 11 | 02.05.2009 ▲ |
|
|
|