REGISTER'A YAZMAK

[HEXF2]

Arkadaşlar Visual basic'te bazı bilgileri register'da bir key açıp buna yazmak istiyorum ve her programı açtığımda burdan değer okumam gerekiyor okuma yapmak için bazı API'ler biliyorum ama yazma yapamadım daha evvel örnek yazmış arkadaşlar yardımcı olabilirler mi?

[HEXF2]

Ya beyler kimse böyle birşey yapmadı mı acil lazım ne olur bir yardım yaa

[refik1]

https://www.picproje.org/index.php/topic,4319

[abdelkader]

Learn how to create a class to save application settings
in the Windows Registry or an application-specific INI file.



http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvbpj00/html/EasySettings.asp

[OG]

stem registry'den nasıl okunur/yazılır?

Registry girişine almak ve kaydetmek
‘girişe yazınız.
‘ HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyApp\Settings\
SaveSetting "MyApp", "Settings", "Left", 10
‘Debug penceresinden giriş ve çıkışları oku.
Debug.Print GetSetting("MyApp", "Settings", "Left", 4)
Registry'de Windows API kullanımı
Option Explicit
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
phkResult As Long) As Long
Private Declare Function RegQueryValueExStr Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As _
String, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As _
Long) As Long
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_SZ = 1&
Private Sub Command1_Click()
Dim hKey As Long
Dim lRet As Long, lenData As Long
Dim sSubKey As String, sData As String
sSubKey = "Control Panel\Colors\"
lRet = RegOpenKey(HKEY_CURRENT_USER, sSubKey, hKey)
lenData = 255
sData = Space$(lenData)
lRet = RegQueryValueExStr(hKey, "ButtonFace", 0, REG_SZ, _
sData, lenData)
sData = Left$(lenData)
Debug.Print "The value is: " & sData
lRet = RegCloseKey(hKey)
End Sub

[HEXF2]

@refik1 ilgilendiğin için sağol dostum ama ben REGEDIT'te bir key açıp bir değer yazmaktan bahsettim ama senin verdiğin linkte yani daha evvel tartışılmış yerde normal bir dizin altında dosya açmak yazmak ve dosyayı kapatmak gibi konular var ben bunları çok iyi biliyorum zaten yinede sağol

@OG verdiğin kodlarda getsetting ve savesetting komutları verilmiş sanırım bunlar ile sadece registerdan bir değer okunuyor ve kaydediliyor galiba yani pek birşey anlamadım verdiğin API'leri ise varolan bir KEY açılıyor ve değeri değiştirilebiliyor ve kapatılıyor biraz daha açarak yazarmısınız!!! Sorduğum şeyi birkez daha okuyun liütfen herkeze şimdiden teşekkürler

[OG]

@HEXF2
O yazı bir yerden alıntı. Ben hiçbir yorum yapamıyacağım, yeni öğrenmeye çalışıyorum.

[OG]

http://rapidshare.de/files/12277611/Ready-To-Run_Visual_Basic_Code_Library.rar.html

CHAPTER 19
Using the Registry


-----------------------------------------------

http://www.freevbcode.com/listcode.asp?Category=3&Level=1

[HEXF2]

Beyler yazıp okuma olayını çözdüm ama REGEDIT'te bütün key'lerle işlem
yapamıyorum VB buna izin vermiyor ama şimdilik işime yarıyor.Fakat farklı fikirleri hala bekliyorum.API'lerle daha güzel olacak diye düşünüyorum

[OG]

Bize de lazım olabilir, nasıl çözdüğünü anlatırsan biz de öğreniriz.

[HEXF2]

savesetting "MySystem", "MySettings", "MyKey", 10

yukarıdaki kod REGEDIT/HKEY_CURRENT_USER/SOFTWARE/VB and VBA program settings/MySystem/MySettings'e Mykey adında bir key açar ve 10 değerini verir

dim Regvalue
RegValue = getsetting("MySystem","MySettings","MyKey")
Bu komuttan sonra RegValue'de 10 olacaktır.

[MuKaN]

vb de en basit haliyle registry 'ye veri yazıp okumak için iki adet fonksiyon vardır:
1- SaveSetting
2- GetSetting

Kullanılışı ise:

Private Sub Command1_Click()
SaveSetting "Baslik", "BolumAdi", "AnahtarAdi", "Yazilacak_Deger"
Text1.Text = GetSetting("Baslik", "BolumAdi", "AnahtarAdi")
End Sub

kolay gelsin