PINI.BAS v1.0 is a VB3/Windows module to
read/write any INI file. It is written
in native VB code and no VBX control is
required. There are no 'nag' screens or
fees. It is FreeWare. Written January
1995 by Tim Berneman in Des Moines, IA.

PINI.BAS documentation file

This software is Freeware. Please distribute freely.

This software has no warranties either expressed or implied. If you use
it, you assume all responsibilities for any damage done to any hardware or
software. The author can not be held responsible for any damaged incurred.

I wrote this module after finding VBX's that did the same thing but had a
'nag' screen on them. Also, they wanted $8 or more to register them. I
thought "Why pay for a VBX when I can write a module to do the same thing
in a couple hours or so." Well, as it turned out it took less than an hour
and surprisingly few lines of code.

PINI stands for Private INI. Windows has two similar calls, one to
read/write the WIN.INI file, and another to read/write all other INI files.
GetProfileString is used on the WIN.INI file, and GetPrivateProfileString is
used on all other INI files. The main difference between the two functions
is you don't specify a filename with the first function because WIN.INI is
implied. You need to supply the name of the INI file in the second one.
My module works with both, simply specify "WIN.INI" as the file name.

PINI has three functions: ReadPINIInt: reads an integer
ReadPINIString: reads a string
WritePINIString: writes a string

These functions are detailed as follows:

Syntax: ReadPINIInt(iniFile,iniSection,iniEntry)
Returns: Integer value
Example: ReadPINIInt("WIN.INI","Desktop","IconSpacing")
Result: 75

Syntax: ReadPINIString(iniFile,iniSection,iniEntry)
Returns: String value
Example: ReadPINIInt("WIN.INI","Windows","Device")
Result: "HP LaserJet Series II,HPPCL,LPT1:"

Syntax: WritePINIString(iniFile,iniSection,iniEntry,iniString)
Returns: Integer, non-zero if successfull, 0 if not successfull
Example: ReadPINIInt("PINI","Testing","1...2...3...")
Result: -1

I haven't tested this module extensively. If you find any bugs or have any
suggestions for this or other modules please call, write, or Email me at:

Written by: Tim Berneman
7203 Forest Court
Des Moines, IA 50311-1329
(515)255-5056

1) [email protected] (Please try in this order)
2) [email protected]
3 )[email protected]

End of PINI.BAS documentation file