AutoHotkey Community

VarSetCapacity( buff, 10000 )
i:=10000

; Normal - Return Value of Key
numchars:=DllCall("kernel32.dll\GetPrivateProfileString",Str,"Section",Str,"Key",Str,"Default",Str,buff,Int,i,Str,"C:\a.ini",Int) 

msgbox,% "Value: " . buff
 
; Return Key names
numchars:=DllCall("kernel32.dll\GetPrivateProfileString",Str,"Section",Int,0,Str,"Default",Str,buff,Int,i,Str,"C:\a.ini",Int)

Bin2Hex(knb,buff,numchars)
StringReplace, knb, knb,-00,0A, All
StringReplace, knb, knb,-,, All
Hex2Bin(knames,knb,numchars)

msgbox,% "Key Names: " . knames

; Return Section names
numchars:=DllCall("kernel32.dll\GetPrivateProfileString",Int,0,Int,0,Str,"Default",Str,buff,Int,i,Str,"C:\a.ini",Int)

Bin2Hex(snb,buff,numchars)
StringReplace, snb, snb,-00,0A, All
StringReplace, snb, snb,-,, All
Hex2Bin(snames,snb,numchars)

msgbox,% "Section Names: ". snames

Return

Bin2Hex(ByRef h, ByRef b, n=0)      ; n bytes binary data -> stream of 2-digit
;hex
{         
                         ; n = 0: all (SetCapacity can be larger than used!)
   format = %A_FormatInteger%       ; save original integer format
   SetFormat Integer, Hex           ; for converting bytes to hex

   m := VarSetCapacity(b)
   If (n < 1 or n > m)
       n := m
   Address := &b
   h =
   Loop %n%
   {
      x := *Address                 ; get byte in hex
      StringTrimLeft x, x, 2        ; remove 0x
      x = 0%x%                      ; pad left
      StringRight x, x, 2           ; 2 hex digits
      h = %h%-%x%                   ; modded for null character identification
      Address++
   }
   SetFormat Integer, %format%      ; restore original format
}

Hex2Bin(ByRef b, h, n=0)            ; n hex digit-pairs -> binary data
{                                   ; n = 0: all. (Only ByRef can handle binaries)
   m := Ceil(StrLen(h)/2)
   If (n < 1 or n > m)
       n := m
   Granted := VarSetCapacity(b, n, 33)
   IfLess Granted,%n%, {
      ErrorLevel = Mem=%Granted%
      Return
   }
   StringLeft b, b, n
   Address := &b
   Loop %n%
   {
      StringLeft  x, h, 2
      StringTrimLeft h, h, 2
      x = 0x%x%
      DllCall("RtlFillMemory", "UInt", Address, "UInt", 1, "UChar", x)
      Address++
   }
}

CharReplace(ByRef Buf, Ch1, Ch2, Len=0) {
   m := VarSetCapacity(Buf)
   If (Len < 1 or Len > m)
       Len = %m%
   Loop %Len%
      If (*(&Buf+A_Index-1) = Ch1)
         DllCall("RtlFillMemory", UInt,&Buf+A_Index-1, UInt,1, UInt,Ch2)
}

i = 10000
VarSetCapacity( buff, i )

; Return Key names
numchars:=DllCall("kernel32.dll\GetPrivateProfileString",Str,"HotKeys"
   ,Int,0,Str,"???",Str,buff,Int,i,Str,"c:\t\AutoHotKey\SKey.ini",Int)
CharReplace(buff, 0, 13, numchars)
MsgBox %buff%

CharReplace(ByRef Buf, Ch1, Ch2, Len=0) { ; In Buf all char Ch1 is replaced with Ch2 (NUL:0->`n:13)
   m := VarSetCapacity(Buf)
   If (Len < 1 or Len > m)
       Len = %m%
   Loop %Len%
      If (*(&Buf+A_Index-1) = Ch1)
         DllCall("RtlFillMemory", UInt,&Buf+A_Index-1, UInt,1, UInt,Ch2)
}

[ProcessDefaults]
ANSI =Mew32.exe,sbrowser.exe,pdexplo.exe
Unicode =WinWord.exe,PowerPnt.exe,WordPad.exe,Notepad.exe,IEXPLORE.EXE,nlnotes.exe,WINWORD.EXE
OFF =MathKernel.exe,Matlab.exe,Calc.exe

[HotKeys]
ForwardKey  = CapsLock
BackwardKey = CapsLock & LShift
SymbolUpKey = CapsLock & Tab
SymbolDnKey = CapsLock & q
ReplaceKey  = CapsLock & r
GuiWindKey  = !CapsLock

[ANSIcodeRings]
…

---------------------------
w.ahk
---------------------------
ForwardKey
BackwardKey
SymbolUpKey
SymbolDnKey
ReplaceKey
GuiWindKey
---------------------------
OK   
---------------------------

IniReadEx(IFile, ISect="", IKey="", Delim=124, buffsz=10000)
{
  IfNotExist, %IFile%
    Return, "Error: File not found"
  VarSetCapacity( buff, buffsz )
  If ISect=
    numchar:=DllCall("kernel32.dll\GetPrivateProfileString",Int,0,Int,0,Int,0,Str,buff,Int,buffsz,Str,IFile,Int)
  Else If IKey=
    numchar:=DllCall("kernel32.dll\GetPrivateProfileString",Str,ISect,Int,0,Int,0,Str,buff,Int,buffsz,Str,IFile,Int)
  Else
    numchar:=DllCall("kernel32.dll\GetPrivateProfileString",Str,ISect,Str,IKey,Int,0,Str,buff,Int,buffsz,Str,IFile,Int)   
  If (numchar > 1) {
    Loop {
    ahklen := StrLen(buff)
    If (ahklen < (numchar -1))
      DllCall("RtlFillMemory", UInt,(&buff+ahklen), UInt,1, UChar,Delim)
    Else
      break
    }
  }
  Return, buff
}

i = 10000
VarSetCapacity( buff, i )

; Return Key names
numchars:=DllCall("kernel32.dll\GetPrivateProfileString",Str,"HotKeys"
   ,Int,0,Str,"???",Str,buff,Int,i,Str,"c:\t\AutoHotKey\SKey.ini",Int)
msgbox % "Key Names: " CharChange(buff, 0, "`r`n", numchars)

CharChange(ByRef Buf, Ch, Str, Len=0) { ; In Buf all char of code Ch is replaced with Str
   m := VarSetCapacity(Buf)             ; Buf := CharChange(Buf, 0, "`r`n"): Nul -> new line
   If (Len < 1 or Len > m)
       Len = %m%
   Loop %Len%
      If (*(&Buf+A_Index-1) = Ch)
           out = %out%%Str%
      Else out:= out Chr(*(&Buf+A_Index-1))
   Return  out
}

MsgBox, % IniReadEx("C:\a.ini", "HotKeys" )