Walpaper >>>-Code überarbeitet-<<<

[Tsuki-Namida]

Hallo,
Ich möchte Herausfinden was für ein Hontergrungbild sich auf meinem Desktop befindet. Ich möchte es aber auch ändern können mit meinem Programm... wie kann ich das am besten machen?

[DarkDragon]

http://forums.purebasic.com/german/view ... ht=desktop

[Tsuki-Namida]

Hey das ist super Danke:)

Ich habe nichts gefunden wie ich das Aktuelle Wallpaper heraus finde....

[Macros]

Der Registry-schlüssel ist
HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper

Wie du ihn ausliest findest du sicher.

[Tsuki-Namida]

Wo und wie sucht man da ambesten?....

[Macros]

Zum Beispiel mal "Registry auslesen" eingeben,
dann findet man dass hier:

Code: Alles auswählen

Procedure.s ReadRegKey(OpenKey.l,SubKey.s,ValueName.s)
  hKey.l=0
  keyvalue.s=Space(255)
  datasize.l=255
 
  If RegOpenKeyEx_(OpenKey,SubKey,0,#KEY_READ,@hKey)
    keyvalue="Error Opening Key"
  Else
    If RegQueryValueEx_(hKey,ValueName,0,0,@keyvalue,@datasize)
      keyvalue="Error Reading key"
    Else 
      keyvalue=Left(keyvalue,datasize-1)
    EndIf
    RegCloseKey_(hKey)
  EndIf
 
  ProcedureReturn keyvalue
EndProcedure 

Debug ReadRegKey(#HKEY_CURRENT_USER, "Software\Microsoft\Multimedia\Sound Mapper", "Playback")

[Tsuki-Namida]

hmmm ich bekomme ein "Error Opening Key" ausgegeben....

[DarkDragon]

hmmm ich bekomme ein "Error Opening Key" ausgegeben....

Code: Alles auswählen

Procedure.s ReadRegKey(OpenKey.l,SubKey.s,ValueName.s)
  hKey.l=0
  keyvalue.s=Space(255)
  datasize.l=255
 
  If RegOpenKeyEx_(OpenKey,SubKey,0,#KEY_READ,@hKey)
    keyvalue="Error opening key."
  Else
    If RegQueryValueEx_(hKey,ValueName,0,0,@keyvalue,@datasize)
      keyvalue="Error reading key."
    Else
      keyvalue=Left(keyvalue,datasize-1)
    EndIf
    RegCloseKey_(hKey)
  EndIf
 
  ProcedureReturn keyvalue
EndProcedure

Debug ReadRegKey(#HKEY_CURRENT_USER, "Control Panel\Desktop", "Wallpaper")

[Tsuki-Namida]

Achso geht das .... jetzt weis ich auch was ich falsch gemacht habe... danke dir

[Tsuki-Namida]

So da ich ja ein Hintergrund Bild setzen möchte habe ich diese Prozedure genommen:

Code: Alles auswählen

Procedure SetWallpaper(Val.s)
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Desktop", "Wallpaper", #REG_SZ, Val, Len(Val)+1)
EndProcedure

Um ein Wallpaper zu setzen muss ich doch "SetWallpaper(C:\Wallpaper.jpg)" machen oder? gut ich habe es mit einem String gemacht... "SetWallpaper(String$)" nur ich bekomme einen Error "Invalid memory access."
in der Zeile:
ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Desktop", "Wallpaper", #REG_SZ, Val, Len(Val)+1)

Was habe ich da falsch gemacht?