Dec 222017
VB program to write ini files.

Full Description of File

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.

File PINI10.ZIP from The Programmer’s Corner in
Category BASIC Language
VB program to write ini files.
File Name File Size Zip Size Zip Type
FILE_ID.DIZ 248 188 deflated
FORM1.FRM 3444 787 deflated
PINI.BAS 1382 346 deflated
PINI.DOC 2445 1096 deflated
PROJECT1.MAK 65 57 deflated
TPCREAD.ME 199 165 deflated

Download File PINI10.ZIP Here

Contents of the PINI.DOC file

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

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

End of PINI.BAS documentation file

 December 22, 2017  Add comments

Leave a Reply