ايران ويج

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

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

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

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

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

???
چطور مثلا

کد: 
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

download69

Mr.pRoGraMmer

download69

Mr.pRoGraMmer