|
INIfile$ = DefaultDir$ + "\JunkINIstruct.ini" calldll #kernel32, "WritePrivateProfileStringA", "Register" as ptr, _ "Forward" as ptr, "1234567890" as ptr, INIfile$ as ptr, ret as long calldll #kernel32, "WritePrivateProfileStringA", "Register" as ptr, _ "Backward" as ptr, "0987654321" as ptr, INIfile$ as ptr, ret as long calldll #kernel32, "WritePrivateProfileStringA", "Register" as ptr, _ "ABCword" as ptr, "ABCDEFGHIJ" as ptr, INIfile$ as ptr, ret as long default$ = "NO DATA SPECIFIED" sizestring = 100 string$ = Space$(sizestring) calldll #kernel32, "GetPrivateProfileStringA", "Register" as ptr, _ "" as ptr,_ default$ As ptr, _ string$ As ptr, _ sizestring As long, _ INIfile$ as ptr, ret as long ' _NULL as ptr,_ ' "Forward" as ptr,_ print "Raw Returned Entry Value: "; string$+"<-" print "GetINI: "; ret print "Returned Entry Value: "; Left$(string$,ret)+"<-" end
|