کمک فوری در مورد ذخیره کردن تغییرات

[download69]

سلام
من یک بار این موضوع رو در یک تاپیک مطرح کردم (تاپیک مربوط به این موضوع نبود) وجوابی درست و کامل دریافت نکردم و هیچ اطلاعاتی در این مورد ندارم که چگونه باید تغییراتی که در هنگام اجرای پروژه است انجام می دهیم را ذخیره کنیم !!!!


مثلا اگر من یک برنامه داشته باشم که امکان تغییر رمز داشته باشد این تغییر فقط در هنگام اجرا ثابت می مونه و در صورت خارج شدن از برنامه این تغییرات به حالت اولیه خود بر می گردنند !!!!

حالا من باید این تغییرات رو چگونه ذخیره و بار گزاری کنم

(اینم می دونم که در هنگام اجرا تغییرات در رم ذخیره میشوند و بعد از خارج شدن از برنامه این اطلاعات می پرند باید ایت تغییرات در هارد ذخیره شن------------ ولی من روشش رو بلد نیستم---- متاسفانه)

[Mr.pRoGraMmer]

خوب دیگه باید با ini کار
یه فایل ini بساز از روش بخون و بنویس

[download69]

???
چطور مثلا

[Mr.pRoGraMmer]

کد:

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 WritePrivateProfileString Lib "KERNEL32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Sub WriteINI(wiSection As String, wiKey As String, wiValue As String, wiFile As String)
    WritePrivateProfileString wiSection, wiKey, wiValue, App.Path & "\" & wiFile
End Sub
Public Function ReadINI(riSection As String, riKey As String, riFile As String, riDefault As String)
    Dim sRiBuffer As String
    Dim sRiValue As String
    Dim sRiLong As String
    Dim INIFile As String
    INIFile = App.Path & "\" & riFile
    If Dir(INIFile) <> "" Then
        sRiBuffer = String(255, vbNull)
        sRiLong = GetPrivateProfileString(riSection, riKey, Chr(1), sRiBuffer, 255, INIFile)
        If Left$(sRiBuffer, 1) <> Chr(1) Then
            sRiValue = Left$(sRiBuffer, sRiLong)
            If sRiValue <> "" Then
                ReadINI = sRiValue
            Else
                ReadINI = riDefault
            End If
        Else
            ReadINI = riDefault
        End If
    Else
        ReadINI = riDefault
    End If
End Function

---

http://www.google.com/#sclient=psy&hl=en...a4ca199aa8