PureBoard

Code: Alles auswählen

Procedure.s GetPureBasicFolder()

  Protected OpenKey.l, SubKey.s, hKey.l=0, keyvalue.s=Space(1024), DataSize.l=1024

  If OSVersion() = #PB_OS_Windows_Vista ; Windows Vista
    OpenKey=#HKEY_CURRENT_USER
    SubKey="Software\Classes\PureBasic.exe\shell\open\command\"
  ElseIf GetVersion_() & $FF0000 ; Windows XP/NT
    OpenKey=#HKEY_CLASSES_ROOT
    SubKey="Applications\PureBasic.exe\shell\open\command"
  Else ; Windows 9x
    OpenKey=#HKEY_LOCAL_MACHINE
    SubKey="Software\Classes\PureBasic.exe\shell\open\command"
  EndIf

  If RegOpenKeyEx_(OpenKey, SubKey, 0, #KEY_READ, @hKey)
    keyvalue=""
  Else
    If RegQueryValueEx_(hKey, "", 0, 0, @keyvalue, @DataSize)
      keyvalue=""
    Else
      keyvalue=Left(keyvalue, DataSize-1)
    EndIf
    RegCloseKey_(hKey)
  EndIf

  If keyvalue<>""
    ProcedureReturn GetPathPart(StringField(keyvalue, 2, #DOUBLEQUOTE$))
  EndIf

EndProcedure

Debug GetPureBasicFolder()

Code: Alles auswählen

Procedure.s GetPBFolder(index = 0)
  Protected hKey1.l, Type.l, Res.l, Folder$, lpbData.l, cbData.l, PBRegKey.s
  cbData = 1024  ;The PB entry is really quite long!
  lpbData = AllocateMemory(cbData)
  Folder$=""
  hKey1=0
  Type=0
  Res=-1
  If lpbData
    Select OSVersion()
      Case #PB_OS_Windows_95,#PB_OS_Windows_98,#PB_OS_Windows_ME
        PBRegKey="Software\Classes\PureBasic.exe\shell\open\command"
        Res=RegOpenKeyEx_(#HKEY_LOCAL_MACHINE, PBRegKey, 0, #KEY_ALL_ACCESS, @hKey1)
      Case #PB_OS_Windows_NT3_51,#PB_OS_Windows_NT_4,#PB_OS_Windows_2000,#PB_OS_Windows_Server_2003
        PBRegKey="Applications\PureBasic.exe\shell\open\command"
        Res=RegOpenKeyEx_(#HKEY_CLASSES_ROOT, PBRegKey, 0, #KEY_ALL_ACCESS, @hKey1)
      Case #PB_OS_Windows_XP, #PB_OS_Windows_Vista,#PB_OS_Windows_Server_2008,#PB_OS_Windows_Future
        PBRegKey="Software\Classes\PureBasic.exe\shell\open\command"
        Res=RegOpenKeyEx_(#HKEY_CURRENT_USER, PBRegKey, 0, #KEY_ALL_ACCESS , @hKey1)
    EndSelect
    If Res = #ERROR_SUCCESS And hKey1
      If RegQueryValueEx_(hKey1, "", 0, @Type, lpbData, @cbData)=#ERROR_SUCCESS
        Folder$ = PeekS(lpbData)
        Select index
          Case 0
            Folder$ = GetPathPart(StringField(Folder$,2,Chr(34)))
          Case 1
            Folder$ = StringField(Folder$,6,Chr(34))
          Case 2
            Folder$ = StringField(Folder$,8,Chr(34))
          Case 3
            Folder$ = StringField(Folder$,10,Chr(34))
        EndSelect
      EndIf
      RegCloseKey_(hKey1)
    EndIf
    FreeMemory(lpbData)
  EndIf
  ProcedureReturn Folder$
EndProcedure

;Index = 0 (default) to return the PB installation folder.
;Index = 1 to return the PB preferences filename.
;Index = 2 to return the templates preferences filename.
;Index = 3 to return the tools preferences filename.

Code: Alles auswählen

MessageRequester("", GetPBFolder())