'===========================================
' WritePrivateProfileStructA Demo
'===========================================
' Acknowledgements to the original authors
' Submitted by pnlawrence 11/21/2015

' This is only one example on how to perform INI file Section writing with a STRUCT. 
'   Of course, the STRUCT(s) can be rewritten and the FUNCTION(s) 
'   can be slightly rewritten to return almost any INI file data.

if right$(DefaultDir$,1)<>"\" then
    DefaultDir$=DefaultDir$+"\"
end if
inifile$ = DefaultDir$ + "JunkINIstruct.ini"

print inifile$

' STRUCT can be created however required with many different types included
'   nothing in the resulting INI file section delineates the different parts of the STRUCT
'   the resulting INI file section also includes a checksum to detect changes
'   the resulting INI file section is more than double the original total length of the values written
'       because each input character string/value is written as double-digit ASCII + nul termination + checksum
'   the STRUCT is GLOBAL

struct structName, keychars$ as CHAR[12] ' fails when CHAR[32766] is exceeded

print "Return from write: "; WriteINIStruct("settings","config","0123456789:",inifile$)

print "Return from get: ->"+GetINIStruct$("settings","config",inifile$)+"<-"

end

'===========================================
'   FUNCTIONS
'===========================================

function WriteINIStruct(SectionName$,KeyName$,KeyChars$,inifile$)
    ' Returns true (1) if nothing wrong or false (0) if a problem
    'code by Richard Russell
    structName.keychars$.struct = KeyChars$
    size = len(structName.struct) 
    calldll #kernel32, "WritePrivateProfileStructA", _ 
    SectionName$ as ptr, _  ' Section name 
    KeyName$ as ptr, _    ' Key name 
    structName as struct, _   ' Structure 
    size as ulong, _      ' Size of structure 
    inifile$ as ptr, ret as long
    WriteINIStruct = ret
end function

function GetINIStruct$(SectionName$,KeyName$,inifile$)
    ' Returns string value if nothing wrong or NULL if a problem
    'code by Richard Russell
    size = len(structName.struct) 
    calldll #kernel32, "GetPrivateProfileStructA", _ 
    SectionName$ as ptr, _  ' Section name 
    KeyName$ as ptr, _    ' Key name 
    structName as struct, _   ' Structure 
    size as ulong, _      ' Size of structure 
    inifile$ as ptr, ret as long
    if ret = 0 then GetINIStruct$ = "" : exit function
    GetINIStruct$ = structName.keychars$.struct
end function