VB¶ÁдINIÎļþ

  '******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ·¾¶±ØÐëÍêÕû,ÎļþÃûÇ°ÃæµÄ¸÷¼¶Ä¿Â¼±ØÐë´æÔÚ,·ñÔòдÈë²»³É¹¦,¸Ãº¯Êý·µ»Ø FALSE Öµ.
'2.ÎļþÃûµÄ·¾¶ÖбØÐëΪ \\ ,ÒòΪÔÚVC++ÖÐ, \\ ²Å±íʾһ¸ö \ .
'3.Ò²¿É½«INIÎļþ·ÅÔÚ³ÌÐòËùÔÚĿ¼,´Ëʱ lpFileName ²ÎÊýΪ: ".\\student.ini".
'4.ʹÓÃÇ°ÇëÏȳõʼ»¯±äÁ¿ProfileName
'******************************************************************************************
'* API º¯ÊýÉùÃ÷ *
'******************************************************************************************
'Ϊ³õʼ»¯ÎļþÖÐÖ¸¶¨µÄÌõÄ¿È¡µÃ×Ö´®
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
'Ϊ³õʼ»¯ÎļþÖÐÖ¸¶¨µÄÌõÄ¿»ñÈ¡Ò»¸öÕûÊýÖµ
Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
"GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String _
) As Long

'ÔÚ³õʼ»¯ÎļþÖ¸¶¨Ð¡½ÚÄÚÉèÖÃÒ»¸ö×Ö´®
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _