DesktopPreferences - Screensaver, Wallpaper, Maus, Tastatur

DarkDragon · Beitrag von **DarkDragon** » 15.10.2004 07:26

Hallo,

hier hab ich euch mal ein paar kleine Funktionen gebastelt:

Procedure InitDesktopPreferences()
  Shared DesktopPreferences_Lib
  DesktopPreferences_Lib = OpenLibrary(#PB_Any, "SHLWAPI.DLL")
  If DesktopPreferences_Lib = 0
    MessageRequester("ERROR", "Couldn't open SHLWAPI.DLL")
  EndIf
EndProcedure

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

Procedure SetScreensaverActive(Val.l)
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Desktop", "ScreenSaveActive", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

Procedure SetScreensaverTimeout(Val.l)
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Desktop", "ScreenSaveTimeOut", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

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

Procedure SetMouseSpeed(Val.l) ;Standard here: 2
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Mouse", "MouseSpeed", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

Procedure SetDoubleClickSpeed(Val.l) ;Standard here: 458
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Mouse", "DoubleClickSpeed", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

Procedure SwapMouseButtons(Val.l)
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Mouse", "SwapMouseButtons", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

Procedure SetKeyboardSpeed(Val.l) ;Standard here: 31
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Keyboard", "KeyboardSpeed", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

Procedure SetKeyboardDelay(Val.l) ;Standard here: 1
  Shared DesktopPreferences_Lib
  ProcedureReturn CallFunction(DesktopPreferences_Lib, "SHSetValueA", #HKEY_CURRENT_USER, "Control Panel\Keyboard", "KeyboardDelay", #REG_SZ, Str(Val), Len(Str(Val))+1)
EndProcedure

Procedure DeInitDesktopPreferences()
  Shared DesktopPreferences_Lib
  CloseLibrary(DesktopPreferences_Lib)
  DesktopPreferences_Lib = 0
EndProcedure

InitDesktopPreferences()

;Your Functions

DeInitDesktopPreferences()

Damit kann man ziemlich viel ändern. Ich glaube die Funktionsnamen und die Titelzeile dieses Topics sagen alles

.

sbehrens · Beitrag von **sbehrens** » 15.10.2004 12:02

DeInit

das ist cool, gibt's das Wort wirklich? Sonst würde ich einfach

Free

benutzen, ist aber auch egal.

mfG
Basti

SoS · Beitrag von **SoS** » 22.10.2004 23:39

ptI hat geschrieben:
DeInit
das ist cool, gibt's das Wort wirklich? Sonst würde ich einfach
Free
benutzen, ist aber auch egal.

mfG
Basti

Soetwas nennt man auch "Künstlerische Freiheit",das gibt dem Programm eine persönliche Note.
Mich stört sowas nicht solange es das tut was es soll

Ich sage mal Danke dafür

DarkDragon · Beitrag von **DarkDragon** » 23.10.2004 10:14

Hi,

Zitat:
DeInit
Laughing das ist cool, gibt's das Wort wirklich? Sonst würde ich einfach
Zitat:
Free
benutzen, ist aber auch egal. Allright

mfG
Basti

kannste ja selbst ändern

Ich sage mal Danke dafür

Bitte

Noch ein kleiner Tipp: stöbert selbst mal ein wenig in "HKEY_CURRENT_USER\Control Panel\Desktop" in der Registry rum. Da findet man so einiges, was man gut gebrauchen kann.

KeyKon · Beitrag von **KeyKon** » 25.10.2004 15:34

Ich hab inzwischen Angst vor allem wo Screensaver draufsteht
http://robsite.de/php/pureboard/viewtopic.php?t=444

(Nimms nicht ernst DarkDragon

)

KeyKon

DarkDragon · Beitrag von **DarkDragon** » 25.10.2004 16:13

Ich hab inzwischen Angst vor allem wo Screensaver draufsteht
http://robsite.de/php/pureboard/viewtopic.php?t=444 Twisted Evil
(Nimms nicht ernst DarkDragon Wink )

KeyKon

Diesmal kannst du sicher gehen, denn du hast selbst den Code, und so unübersichtlich ist er auch nicht. Außerdem kannst du da den ScreenSaver ein und ausstellen. Das war auch der letzte Teil, den ich dir geschrieben hab. Da stand der selbe Code zum ausschalten drin.

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 10.11.2004 22:37

@DarkDragon

also nochma langsam für die älteren semester...

mit SetScreensaver("FileName") kann ich eine eigene .exe als screensaver einsetzten ?

...oder wie...

DarkDragon · Beitrag von **DarkDragon** » 17.11.2004 20:03

Kaeru Gaman hat geschrieben:@DarkDragon

also nochma langsam für die älteren semester...

mit SetScreensaver("FileName") kann ich eine eigene .exe als screensaver einsetzten ? ...oder wie...

Ja, die muss alerdings speziell gecoded sein und sie muss von .exe in .scr umbenannt werden.

Robert Wünsche · Beitrag von **Robert Wünsche** » 17.11.2004 20:25

Ja, die muss alerdings speziell gecoded sein und sie muss von .exe in .scr umbenannt werden.

Ach ja ... exe to *.scr, wie easy, wusste ich ehrlichgesagt schon früher
.Hatte ich mit meiner alten demo gecodet --> (wer sich überzeugen möchte muss mal auf meiner homepage nachstöbern

)

Tolles beispiel !
Ist zwar nur ein springender ball, aber seis drum !

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 17.11.2004 20:53

...speziell gecodet...

....gibts da beispiele ?
....oder ne liste, welche befehle nicht verwendet werden dürfen ?
(keine window-geschichten ist schon klar...aber was geht ?)