| |
|
|
Tim Hannemann | ¡Hola Personas, Yo escribir actualmente una Programa welches beim Neustart des Rechners y después de uno gewissen Tiempo, welche el Benutzer einstellen kann, el Desktop Hintergrundbild ändert. Zurzeit bin Todavía esta el Desktop Hintergrundbild a ändern, qué rein Theoretisch auch ya klappt. Nur Yo una Problema: es el Bild una BMP oder JPG klappt lo, es una PNG oder una GIF kappt lo otra vez rum no y Desktop Hintergrund se Schwarz. Weiß alguien como yo correcto hinbekomme???
Hier auch veces el Quellcode KompilierenMarcaSeparación#########################################
#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 | Exactamente weis Yo no, aber podría tal vez con ActiveDesktop a tun haben. Dieser wurde auch z.B. bajo Vista abgeschafft. Wenn lo a ActiveDesktop mentira sería, entonces wiederspricht aber eigentlich el klappende Extension JPG. Täusche Yo mich, oder podría lo ser? |
|
|
| |
|
|
|
Tim Hannemann | Hm. Weiß Yo no, Yo escribir lo bajo Vista y habe lo auch en keinem anderem OS getestet. Aber debería lo daran mentira, como umgehe Yo entonces? Hast du como una Idea? |
|
|
| MfG Timää
------------
Betriebssysteme: Windows Vista
Profanversion: XProfan 11 | 01.05.2009 ▲ |
|
|
|
|
| @Tim: Más Formate puede Control no, konvertiere doch... |
|
|
| |
|
|
|
Tim Hannemann | okay, entonces nächste frage como konvertiere I, con profano? |
|
|
| MfG Timää
------------
Betriebssysteme: Windows Vista
Profanversion: XProfan 11 | 01.05.2009 ▲ |
|
|
|
|
| Erst suchen y luego neuer Hilo Por favor,. |
|
|
| |
|
|
|
Tim Hannemann | ha se geklärt habs con Crear(hPic,N1[,N2]) como bild eingelesen y SavePic como jpg speichern puede y lo funktioniert |
|
|
| MfG Timää
------------
Betriebssysteme: Windows Vista
Profanversion: XProfan 11 | 02.05.2009 ▲ |
|
|
|