' Код модуля modINI

'Вставляем код проверки о существовании файла
Declare Function PathFileExists Lib "shlwapi.dll" _
Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Dim giveme As Byte

' Чтение и запись строк в файлы инициализации
Declare Function GetPrivateProfileString& Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, _
ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, _
ByVal lpszFile$)
Declare Function WritePrivateProfileString Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpString As String, ByVal lplFileName As String) As Long

' Чтение из файла инициализации
Public Function GetINI(INIfile As String, Section As String, _
Key As String, Default As String)

' Дешифруем
' Если файл существует, то:
giveme = PathFileExists(App.Path & "\" & "options.ini")
If giveme = 1 Then
Call Admin.DeCode
End If

' Читаем данные
Dim temp As String * 256
Dim length As Integer
temp = Space$(256)
length = GetPrivateProfileString(Section, Key, _
Default, temp, 255, INIfile)
GetINI = Left$(temp, length)
' Шифруем
Call Admin.Code
End Function

' Запись в файл инициализации
Public Sub SetINI(INIfile As String, Section As String, _
Key As String, Value As String)

' Дешифруем
' Если файл существует, то:
giveme = PathFileExists(App.Path & "\" & "options.ini")
If giveme = 1 Then
Call Admin.DeCode
End If

' Записываем данные
Dim n As Integer
Dim temp As String
temp = Value
For n = 1 To Len(Value)
If Mid$(Value, n, 1) = vbCr Or Mid$(Value, n, 1) = vbLf _
Then Mid$(Value, n) = ""
Next n
n = WritePrivateProfileString(Section, Key, temp, INIfile)
' Шифруем
Call Admin.Code
End Sub

Sub Decrypt()
On Error GoTo hand
'тут код всей функции
hand: Exit Sub
End Sub

'~~~.Shrink
Public Sub Shrink()
On Error GoTo hands
'тут код всей функции
hands: Exit Sub
End Sub