作用一、利用GetPrivateProfileString函数加载储存在文件的数据(代码中的变量值)
Public Class Form1
Public CurrentPath As String = AppDomain.CurrentDomain.SetupInformation.ApplicationBase
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String,
ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
Private Declare