'code by Richard Russell
'struct config, soundon as long, fullscreen as long 
'config.soundon.struct = 1 
'config.fullscreen.struct = 0 
struct config, soundon$ as ptr, fullscreen as long
SoundOn$ = "sound is on" 
config.soundon$.struct = SoundOn$
config.fullscreen.struct = 4

' locate the ini file
'print DefaultDir$   'no trailing backslash
'print StartupDir$   'has trailing backslash
if right$(DefaultDir$,1)<>"\" then
    DefaultDir$=DefaultDir$+"\"
end if
inifile$ = DefaultDir$ + "JunkINIstruct.ini"

print inifile$
print "Initial values: [soundon$ = ";config.soundon$.struct;"]  [fullscreen = ";config.fullscreen.struct;"]"
 
size = len(config.struct) 
calldll #kernel32, "WritePrivateProfileStructA", _ 
"settings" as ptr, _  ' Section name 
"config" as ptr, _    ' Key name 
config as struct, _   ' Structure 
size as ulong, _      ' Size of structure 
inifile$ as ptr, ret as long
print "ret from write: ";ret
SoundOn$ = ""
FullScreen = 0

'code by Richard Russell
size = len(config.struct) 
calldll #kernel32, "GetPrivateProfileStructA", _ 
"settings" as ptr, _  ' Section name 
"config" as ptr, _    ' Key name 
config as struct, _   ' Structure 
size as ulong, _      ' Size of structure 
inifile$ as ptr, ret as long
print "ret from get: ";ret

'  To retrieve the information from the struct:
'
'SoundOn$ = config.soundon$.struct  
FullScreen = config.fullscreen.struct
print "SoundOn$: ";SoundOn$
print "FullScreen: ";FullScreen
 

Using types with STRUCT and CALLDLL

The STRUCT statement requires that each field be typed to specify what type of data it will contain. The CALLDLL statement also requires that each parameter passed be typed. The types are common to both STRUCT and CALLDLL. Simple data TYPES in Windows programming are often renamed versions of the types below. A program should specify the TYPE according to the chart below.

TYPES

  double(a double floating point)
  ulong(4 bytes, unsigned long integer)
  long(4 bytes, signed long integer)
  short(2 bytes, signed short integer)
  ushort, word(2 bytes, unsigned short integer)
  ptr(4 bytes, long pointer, for passing strings)
  struct(4 bytes, long pointer, for passing structs)
  void, none(a return type only, used when a function doesn't return a value)
  boolean(true/false expression)

 

[settings]
config=736F756E64206973206F6E000000000000000000000000000000000000000400000026