Pfad des Desktopbildes
Pfad des Desktopbildes
Hallo,
wie kann man den Pfad des Desktop-Hintergrundbildes herausfinden?
Da gibts zwar den einen Code im CodeArchiv (mit den vielem Assembler), aber geht das nicht einfacher?
wie kann man den Pfad des Desktop-Hintergrundbildes herausfinden?
Da gibts zwar den einen Code im CodeArchiv (mit den vielem Assembler), aber geht das nicht einfacher?
v6.00
Code: Alles auswählen
Buffer$ = Space(#MAX_PATH)
SystemParametersInfo_(#SPI_GETDESKWALLPAPER,#MAX_PATH,Buffer$,0)
Debug GetPathPart(Buffer$)
Gruss Andreas
Windows XP getestet
Code: Alles auswählen
;HKEY_CURRENT_USER\Control Panel\Desktop)
szValue.s = Space(1024)
dwBufLen = Len(szValue)
If RegOpenKeyEx_(#HKEY_CURRENT_USER, "Control Panel\Desktop", 0, #KEY_QUERY_VALUE, @hKey) = 0
r1 = RegQueryValueEx_( hKey, "ConvertedWallpaper", 0, 0, @szValue, @dwBufLen)
Debug szValue
RegCloseKey_(hKey)
EndIf
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
ich würde mich für diesen Code entscheiden (bitte nicht böse sein mk-soft).Andreas hat geschrieben:Code: Alles auswählen
Buffer$ = Space(#MAX_PATH) SystemParametersInfo_(#SPI_GETDESKWALLPAPER,#MAX_PATH,Buffer$,0) Debug GetPathPart(Buffer$)
Gibt es ne möglichkeit auch die Datei herauszufinden?
oder hat die immer die Gleiche Bezeichnung?
v6.00
SystemParametersInfo(...) für bei mir nicht zum erfolg?
Falsches ergebnis.
P.S. Die Datei Wallpaper1.bmp im Verzeichnis ist immer das aktuelle gewandelte Bild welches verwendet wird.
Also nicht das Quellbild.
Falsches ergebnis.
P.S. Die Datei Wallpaper1.bmp im Verzeichnis ist immer das aktuelle gewandelte Bild welches verwendet wird.
Also nicht das Quellbild.
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive