; German forum: http://www.purebasic.fr/german/viewtopic.php?t=864&start=10
; Author: Danilo
; Date: 14. November 2004
; OS: Windows
; Demo: No

; Create an entry in the Windows context menu, with which a PB source can be created as 
; "new document". Admin rights and as well a reboot are needed.

; Einen Eintrag im Windows Kontext-Menü erstellen, über den ein PB-Source als neues 
; "Dokument" erstellt werden kann. Admin-Rechte und ein Neustart sind erforderlich.

If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,".pb",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS 
  Value$ = "PureBasic Source" 
  RegSetValueEx_(key,"",0,#REG_SZ,Value$,Len(Value$)+1) 
  RegCloseKey_(key) 
Else 
  MessageRequester("ERROR","Eintrag 1 fehlgeschlagen") 
EndIf 

If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,".pb\ShellNew",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS 
  Value$ = "" 
  RegSetValueEx_(key,"NullFile",0,#REG_SZ,Value$,Len(Value$)+1) 
  RegCloseKey_(key) 
Else 
  MessageRequester("ERROR","Eintrag 2 fehlgeschlagen") 
EndIf 


If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,"PureBasic Source",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS 
  Value$ = "PureBasic Source" 
  RegSetValueEx_(key,"",0,#REG_SZ,Value$,Len(Value$)+1) 
  RegCloseKey_(key) 
Else 
  MessageRequester("ERROR","Eintrag 3 fehlgeschlagen") 
EndIf 


If RegCreateKeyEx_(#HKEY_CLASSES_ROOT,"PureBasic Source\shell\open\command",0,0,#REG_OPTION_NON_VOLATILE,#KEY_ALL_ACCESS,0,@key,@Disposition) = #ERROR_SUCCESS 
  Value$ = "" ; Chr(34)+OpenFileRequester("PB OPEN COMMAND","PureBasic.exe",".EXE|*.exe",0)+Chr(34) 
  RegSetValueEx_(key,"",0,#REG_SZ,Value$,Len(Value$)+1) 
  RegCloseKey_(key) 
Else 
  MessageRequester("ERROR","Eintrag 4 fehlgeschlagen") 
EndIf

; IDE Options = PureBasic v4.02 (Windows - x86)
; Folding = -