DP Tool Club 17/CD_ASCQ_17_101194.iso/vrac/rwini.zip/RWINI.BAS

BASIC Source File | 1994-08-01 | 1KB | 31 lines

Option Explicit
'Read-Write INI Sample
'Written by: George Csefai-Keane, Inc.
'email: [e-mail]

'API Declarations
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Integer

'Variable Declarations
Global r%       'Result Code from WritePrivateProfileString
Global entry$   'Passed to WritePrivateProfileString
Global iniPath$ 'Path to .ini file

Sub CenterForm (frm As Form)
    frm.Top = (Screen.Height * .85) / 2 - frm.Height / 2
    frm.Left = Screen.Width / 2 - frm.Width / 2
End Sub

Function GetFromINI (AppName$, KeyName$, FileName$) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName$, ByVal KeyName$, "", RetStr, Len(RetStr), FileName$))
End Function

Sub Main ()
    CenterForm frmINI
    frmINI.Show
End Sub