Attribute VB_Name = "RwIni"
Option Explicit

'在初始化文件指定小節內設置一個字串
   
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
                                                         
'為初始化文件中指定的條目取得字串,讀Ini
      
Public Pass As String
   
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
 
Public Sub WriteIni1(Ini As Long)
  
  Dim x As Long
  
  Dim lpappname As String
  
  Dim lpString As String
  
  Dim lpString1 As String
  
  Dim lpKeyName As String
  
  Dim lpKeyName1 As String
  
  Dim lpApplicationName As String
  
  Dim lpFileName As String
  
  Select Case Ini
                 
    Case 1
     
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "Pass"
     
     lpKeyName = "Word"
     
     lpString = Pass '將修改的密碼寫ini
         
    Case 2
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "lock"
     
     lpKeyName = "true"          '寫鎖定標記
     
     lpString = 1
     
    Case 3
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "lock"
     
     lpKeyName = "true"         '寫解鎖標記
     
     lpString = 0
             
    Case 4
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "start"
     
     lpKeyName = "true"         '寫自動啟動標記
     
     lpString = 1
            
    Case 5
           
     lpFileName = MyGetSystemDirectory + "\Lock.ini"
     
     lpappname = "start"
     
     lpKeyName = "true"         '寫自動啟動標記
     
     lpString = 0
     
  End Select
  
  x = WritePrivateProfileString(lpappname, lpKeyName, lpString, lpFileName)

End Sub

Public Function ReadIni1(Ini As Long) As String
  
  Dim lpApplicationName As String
  
  Dim lpReturnedString As String * 50
  
  Dim nSize As Long
  
  Dim lpKeyName As String
  
  Dim lpDefault As String
  
  Dim lpFileName As String
  
  Dim x As Long
  
  nSize = Len(lpReturnedString) + 1
  
  Select Case Ini
       
     Case 1
      
      lpFileName = MyGetSystemDirectory + "\Lock.ini"
      lpApplicationName = "Pass"  '讀記錄密碼
      lpKeyName = "Word"
            
     Case 2
     
      lpFileName = MyGetSystemDirectory + "\Lock.ini"
      lpApplicationName = "lock"
      lpKeyName = "true"   '讀取鎖定標記
      
     Case 3
     
      lpFileName = MyGetSystemDirectory + "\Lock.ini"
      lpApplicationName = "start"
      lpKeyName = "true"   '讀取鎖定標記
        
  End Select
    
  x = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)
                
  ReadIni1 = lpReturnedString '返回讀取內容,含空格符
           
End Function