ABACOM - ELECTRONIC SOFTWARE

Code: Alles auswählen

' :::::::::: DLL-START ::::::::::::: '

#INCLUDE "windows.bi"
#INCLUDE "vbcompat.bi"                      ' can be kicked out after converting everything to FB style code
#inclib  "advapi32" 

' ----- Microsoft Reference 'accessing registry' on the INET "http://support.microsoft.com/kb/145679" ----- '
'Public Const REG_SZ As Long = 1            ' in FB: instead of 'long' use 'Integer', both are I32 = 4Byte Int
'Public Const REG_DWORD As Long = 4
'
'Public Const HKEY_CLASSES_ROOT = &H80000000 '<-- defined in advapi32.dll
Public Const HKCR = HKEY_CLASSES_ROOT       '<-- our shortcut definition, use that afterwards (in code)
'Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKCU = HKEY_CURRENT_USER
'Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKLM = HKEY_LOCAL_MACHINE
'Public Const HKEY_USERS = &H80000003
Public Const HKU  = HKEY_USERS

' ===== Local Functions/Subs ===== '
Dim Shared As ZString * 1024 RegVal = ""    ' not shure that this is big enough, in reference it says up to 2048 Byte???
'Dim Shared As HKEY root     ' since I can't find a declaration for HKEY this seems to be useless
Dim Shared As ANY root      ' undefined type variable

Function myRegGetStr(root As HKEY, sub_ As ZString ptr, name_ As ZString ptr, out_ As ZString ptr) as string 
  Dim As HKEY hKey_         ' probably has to be replaced by one of the above defined keys (e.g. HKCU, HKLM etc.)
  Dim As Integer rc, KeyValType, KeyData        ' long is C-language/VB for I32 = Integer in FreeBASIC
  'RegVal="" --> not needed any longer because it is already initialised to ""
    If RegOpenKeyEx(root, sub_, 0, KEY_READ, @hKey_) = ERROR_SUCCESS Then 
        Dim l As DWORD = 512 
        Dim t As DWORD 
        If RegQueryValueEx(hKey_, name_, NULL, @t, out_, @l) <> ERROR_SUCCESS Then Return "" 
      If t = REG_SZ Then  
         out_[512 - 1] = 0 
      end if

Code: Alles auswählen

Registry:
---------
REG_SZ = either ZString or WString in FB (ZS = ANSI, WS = UniCode) depends on the Function used.
REG_DWORD = Integer (32-bit number - signed)
REG_QWORD = LongInt (64-bit number - signed)

Weitere Info:
http://msdn.microsoft.com/en-us/library/windows/desktop/bb773476%28v=vs.85%29.aspx

Desktop Applications:
---------------------
HKEY  = A handle to a Registry key. In WinDef.h as:
        typedef HANDLE HKEY; (see below)
HANDLE = typedef PVOID HANDLE; (undefined(void) ptr type) = Any Ptr in FB
DWORD = UInteger (32-bit number - unsigned)
QWORD = ULongInt (64-bit number - unsigned)

Weitere Info:
http://msdn.microsoft.com/en-us/library/windows/desktop/aa383751%28v=vs.85%29.aspx

ATTENTION:
==========
Please note the differences between Desktop Application / Registry types!