Registry – Sistem Kaydı (kaynak1.v.basic)

Registry – Sistem Kaydı

Komut "Program Adı", "Anahtar", "Özellik", "Değer”

SaveSetting : Registrye değer yazar

GetSetting : Registryden değer okur

DeleteSetting : registryden değer siler

Private Sub RegKaydı_Click()

‘ Registry’e form genişiliği kaydediliyor

SaveSetting "Test Programı", "Ölçekler", "Genişlik", Form1.Width

End Sub



Private Sub RegOku_Click()

‘ Registry’den form genişiliği alınıyor

Genislik = GetSetting("Test Programı", "Ölçekler", "Genişlik")

Form1.Width =Genislik

End Sub



Private Sub RegSil_Click()

‘ Registry’den Test programı ölçekler kaydı siliniyor

DeleteSetting "Test Programı", "Ölçekler"

End Sub


Registry ile Demo Program Hazırlamak



‘ Yüklendiği tarih registry’e kaydedilir

Savesetting "Demo_Prog","Kontrol”,"Yükleme_Tarihi", Now

‘ Yüklendiği tarih ile çalıştırıldığı tarih arasındaki fark kontrol edilir

Tarih = Getsetting ("Demo_Prog","Kontrol","Yükleme_Tarihi")





‘ Kullanım sayısına göre

Kullanım_Sayısı = GetSetting("Demo_Prog”, "Kontrol”, "Çalıştırılma_Sayısı")

If (Kullanım_Sayısı) = 30 Then

Unload Me

Else

Kullanım_Sayısı = Val(Kullanım_Sayısı) + 1

SaveSetting "Demo_Prog”, "Kontrol”, "Çalıştırılma_Sayısı" , Kullanım_Sayısı

End If



‘ Registry “kontrol” kaydını silmek

Deletesetting "Demo_Prog”,"Kontrol"