Liberty BASIC Programmer's Encyc - WritePrivateProfileStructA

<h1>WritePrivateProfileStructA Demo</h1>
[[user:tsh73]] 
<hr />
<h1>Demonstration Program</h1>
Accompanies the article on <a class="wiki_link" href="/IniFiles" target="_blank">Initialization Files</a> 
 
[[user:tsh73]] advises, &quot;Run it, write it, read it, break it and try to write again.&quot;

<pre class="lb">print &quot; * WritePrivateProfileStructA / GetPrivateProfileStructA demo *&quot; 'based on code by Richard Russel (80%) and by Stefan Pendl (15%) print dim info$(1, 1) 'for fileExists struct config, soundon$ as char[12], fullscreen as long SoundOn$ = &quot;sound is on&quot; config.soundon$.struct = SoundOn$ config.fullscreen.struct = 4 print &quot;Initial values: [soundon$ = &quot;;config.soundon$.struct;&quot;] [fullscreen = &quot;;config.fullscreen.struct;&quot;]&quot; if right$(DefaultDir$,1)&lt;&gt;&quot;\&quot; then DefaultDir$=DefaultDir$+&quot;\&quot; end if inifile$ = DefaultDir$ + &quot;testINI.ini&quot; print inifile$ if fileExists(&quot;&quot;, inifile$) then print &quot;File exists&quot; else print &quot;No such file&quot; print [mnu] print &quot;1. Write INI&quot; print &quot;2. Read INI&quot; print &quot;3. Delete INI&quot; print &quot;4. Mess with INI with Notepad (don't forget to save it)&quot; print &quot;0. Exit&quot; input &quot;Enter selection: &quot;;sel if sel = 0 then end if sel &lt;1 or sel &gt;4 then [mnu] select case sel case 1 size = len(config.struct) calldll #kernel32, &quot;WritePrivateProfileStructA&quot;, _ &quot;settings&quot; as ptr, _ ' Section name &quot;config&quot; as ptr, _ ' Key name config as struct, _ ' Structure size as ulong, _ ' Size of structure inifile$ as ptr, ret as long if ret=0 then 'If the function successfully copies the string to the initialization file, the return value is nonzero. print &quot;Some error happened&quot; call displayError else print &quot;Write OK&quot; end if case 2 size = len(config.struct) calldll #kernel32, &quot;GetPrivateProfileStructA&quot;, _ &quot;settings&quot; as ptr, _ ' Section name &quot;config&quot; as ptr, _ ' Key name config as struct, _ ' Structure size as ulong, _ ' Size of structure inifile$ as ptr, ret as long if ret=0 then 'If the function succeeds, the return value is nonzero. print &quot;Some error happened&quot; call displayError else print &quot;Read OK&quot; ' To retrieve the information from the struct: ' SoundOn$ = config.soundon$.struct FullScreen = config.fullscreen.struct print &quot;SoundOn$: &quot;;SoundOn$ print &quot;FullScreen: &quot;;FullScreen end if case 3 call tryToKill inifile$ if fileExists(&quot;&quot;, inifile$) then print &quot;File still exists&quot; else print &quot;No such file&quot; case 4 run &quot;notepad.exe &quot;+inifile$ end select goto [mnu] end sub tryToKill filename$ 'try to kill it 'don't care much if failed on error goto [handler] kill filename$ [handler] end sub sub displayError ' by Stefan Pendl calldll #kernel32, &quot;GetLastError&quot;, _ ErrorCode as ulong dwFlags = _FORMAT_MESSAGE_FROM_SYSTEM nSize = 1024 lpBuffer$ = space$(nSize); chr$(0) dwMessageID = ErrorCode calldll #kernel32, &quot;FormatMessageA&quot;, _ dwFlags as ulong, _ lpSource as ulong, _ dwMessageID as ulong, _ dwLanguageID as ulong, _ lpBuffer$ as ptr, _ nSize as ulong, _ Arguments as ulong, _ result as ulong print &quot;Error &quot;; ErrorCode; &quot;: &quot;; left$(lpBuffer$, result) end sub function fileExists(path$, filename$) files path$, filename$, info$() fileExists = val(info$(0, 0)) 'non zero is true end function</pre>