VB 使用API讀寫INI

1. Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
2.                         (ByVal LpApplicationName As String, _
3.                         ByVal LpKeyName As Any, _
4.                         ByVal lpDefault As String, _
5.                         ByVal lpReturnedString As String, _
6.                         ByVal nSize As Long, _
7.                         ByVal lpFileName As String) As Long
8. Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
9.                         (ByVal LpApplicationName As String, _
10.                         ByVal LpKeyName As Any, _
11.                         ByVal lpString As Any, _
12.                         ByVal lpFileName As String) As Long
14. '獲取INI配置文件
15. Public Function GetINI(ByVal LpApplicationName As String, ByVal LpKeyName As String) As String
16.     Dim retVal As Long
17.     Dim Value As String
18.     Value = Space(128)
19.     retVal = GetPrivateProfileString(LpApplicationName, LpKeyName, "", Value, Len(Value), Replace(App.Path & "/Config.ini", "//", "/"))
20.     GetINI = Left(Trim(Value), Len(Trim(Value)) - 1)
21. End Function
22. '寫INI配置文件
23. Public Sub WriteINI(ByVal LpApplicationName As String, ByVal LpKeyName As String, ByVal Value As String)
24.     Dim retVal As Long
25.     retVal = WritePrivateProfileString(LpApplicationName, LpKeyName, Value, Replace(App.Path & "/Config.ini", "//", "/"))
26. End Sub
30. Form1.Text1 = GetINI("基本設置", "Content")'讀
31. Call WriteINI("基本設置", "Content", Form1.Text1)'寫