

néanmoins merci
Code : Tout sélectionner
Debug RegGetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager","ThemeActive",".")
19/09/13 : Library 5.20.001
Library for PureBasic 5.20 LTS
BargraphGadget example fixed
GraphGadget example fixed
Code : Tout sélectionner
ProcedureDLL.s OSVersionText() ; Returns OsVersion in Text Format
Select OSVersion()
Case #PB_OS_Windows_NT3_51
retour.s="Windows NT 3.51"
Case #PB_OS_Windows_95
retour.s="Windows 95"
Case #PB_OS_Windows_NT_4
retour.s="Windows NT4"
Case #PB_OS_Windows_98
retour.s="Windows 98"
Case #PB_OS_Windows_ME
retour.s="Windows Me"
Case #PB_OS_Windows_2000
retour.s="Windows 2000"
Case #PB_OS_Windows_XP
retour.s="Windows XP"
Case #PB_OS_Windows_Server_2003
retour.s="Windows 2003 Server"
Case #PB_OS_Windows_Vista
retour.s="Windows Vista"
Case #PB_OS_Windows_Server_2008
retour.s="Windows 2008 Server"
Case #PB_OS_Windows_7
retour.s="Windows 7"
;----à ajouter -------------------------
Case #PB_OS_Windows_8
retour.s="Windows 8"
; ----------------------------------------
Case #PB_OS_Windows_Future
retour.s="Unknown"
EndSelect
ProcedureReturn retour
EndProcedure
Je le noteTu peux aussi mettre à jour OSVersionText() à jour maintenant que windows 8 est reconnu
Bonne journéeTB 1.4.11
NetworkClientEvent4 Removed because now include with PureBasic
GetPidProcess() Moved berfore GetPidProcessEx()
OSVersionText() Added new OS
WNetCancelConnection() Help added
GetUserName() Help added
GetComputerName() help added
Week() bug fixed : Thanks to rule
UpdateWindow() Function added
UpdateResource() Tweaked (don't crash if fail)
Evaluation Tips added
NTP Sample code added
GetTimeZoneName() Function added
GetTimeZone() Function added
Setdate() Function added
LogVersion() Function added
Oem renamed to Console
ConsoleSize Tips added
IsLaptop Tips added
RestoreEx Code added
SelfElevation Tips added