'===========================================================================
' Subject: Setup for Form Designer            Date: 06-18-01 (07:00)       
'  Author: Jordi Ramos                        Code: RapidQ                 
'  Origin: correodejordi@wanadoo.es         Packet: RAPIDQ.ABC
'===========================================================================
Declare Function GetIniPaht as string
Declare Function GetIni(szSection As String, svVariant As String, Default As String) As String
Declare Sub WriteIni(szSection As String, svVariant As String, svValue As String)

'User's Variables 
Dim iLenght As Integer
dim lpBuffer as string  
dim uSize as Long
dim svReturn as string
uSize = 260

'Function to GET Windows Paht
Function GetIniPaht
   lpBuffer = Space$(uSize)
   iLenght = GetWindowsDirectory( Varptr(lpBuffer), uSize)
   GetIniPaht = Left$(lpBuffer, iLenght)
End Function

'Function to GET information into an INI File
Function GetIni(szSection As String, svVariant As String, Default As String) As String
   lpBuffer = Space$(uSize)
   iLenght = GetPrivateProfileString(szSection, svVariant, Default, @lpBuffer, uSize, szFile)
   GetIni = Left$(lpBuffer, ilenght)
End Function

'Sub  to WRITE information from an INI File
Sub WriteIni(szSection As String, svVariant As String, svValue As String)
   WritePrivateProfileString szSection, svVariant, svValue, szFile
End Sub