Sicher sind zu Registryzeiten die Ini-Dateien
(Initialisierung) nicht mehr ganz so up to date.
Aber es wird sie auch weiterhin geben und zum ablegen von Informationen für das Programm
sind sie allemal brauchbar.
Deshalb hier zum Download ein VB3-Projekt, das den Zugriff auf eine INI-Datei
verdeutlichen soll.
######################################################
Die vier verwendeten API-Funktionen 16Bit
Declare Function WritePrivateProfileString% Lib "Kernel"
(ByVal lpAppName$, ByVal lpKeyname$, ByVal lpString$, ByVal lpFileName$)Declare Function GetPrivateProfileString% Lib "Kernel"
(ByVal lpAppName$, ByVal lpKeyname As Any, ByVal lpDefault$, ByVal lpReturnedString$,
ByVal nSize%, ByVal lpFileName$)
Declare Function GetWindowsDirectory Lib
"Kernel"
(ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
Declare Function GetProfileString Lib "Kernel"
(ByVal lpAppName$, ByVal lpKeyname As Any, ByVal lpDefault$, ByVal lpReturned$, ByVal
Size%)
######################################################
Die vier verwendeten API-Funktionen zur 32Bit Anpassung
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName
As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName
As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long,
ByVal lpFileName As String) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetProfileString Lib "kernel32" Alias
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal
lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
|
