Kay�t Defteri API's�n� Kullanarak Ayarlar� Alma ve Kaydetme

Makale numaras�: 145679 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Visual Basic, kay�t defteri bilgilerini almak ve kaydetmek i�in SaveSetting ve GetSetting i�levlerini i�ermesine kar��n, bu i�levler kay�t defterinin yaln�zca belirli bir b�l�m�nde, HKEY_CURRENT_USER k�k anahtar�n�n Visual Basic ve VBA Program Settings b�l�m�nde �al��r.

Bu makalede, kay�t defterinin herhangi bir yerindeki de�erleri ayarlamak ve almak i�in kullan�labilen 32 bit Windows API i�levlerinin kullan�m� �zetlenmektedir. Bu makaledeki konu ve i�lev ba�vurular� genel olarak 16 bit kay�t defterini programlamaya y�neliktir.

32 bit API i�levleri, g�venlik deste�ini de i�ermektedir; ancak g�venlik de�erlendirmesi bu makalenin kapsam� d��ndad�r.

NOT: SaveSetting ve GetSetting i�levleri, VBA i�lev kitapl��n�n par�as� de�ildir. Ancak, a�a��daki �rnek kod, VBA kullanan 32 bit uygulamalar i�in yine de ge�erlidir.

�ste | Geri Bildirim Ver

MORE INFORMATION

Genel Kay�t Defteri Bilgileri

Kay�t defteri, uygulamalar ve Windows taraf�ndan yap�land�rma verilerini saklamak i�in kullan�l�r. Windows 3.x makinelerde h�zla artan �ok say�da INI dosyas�n�n yerini alm��t�r ve OLE taraf�ndan da yo�un olarak kullan�lmaktad�r.

Kay�t defteri, bir a�aca benzeyen anahtar ve de�erlerin hiyerar�ik dizileri kullan�larak d�zenlenmi�tir. �nceden tan�mlanan alt� k�k anahtardan biriyle ba�layan her anahtar�n kendisiyle ili�kilendirilmi� alt anahtarlar� ve de�erleri olabilir. Anahtarlar, Windows Kay�t Defteri D�zenleyicilerinde dosya klas�rleri olarak g�r�nen kurulu� ve adland�rma birimleridir. De�erler, Kay�t Defteri D�zenleyicisi penceresinin sa� b�lmesinde metin girdileri olarak g�r�nen veri girdileridir. Anahtarlar�n ili�kili de�erleri olmas� gerekmez, ancak gerekirse de�erlerle ili�kilendirilebilir. Her de�erin ili�kili bir veri t�r� vard�r. En s�k kullan�lan iki kay�t defteri veri t�r�, bo� bir kesintili dize olan REG_SZ ve bir 32 bit say� olan REG_DWORD veri t�rleridir.

Kay�t defterindeki bir konuma yazmak veya bir konumdan okumak i�in kullan�lan temel yordam ayn�d�r. Belirli bir anahtar veya de�ere ba�vurmak i�in, anahtar�n tan�mlay�c�s�na sahip olman�z gerekir. Bu tan�mlay�c� edinildikten sonra, anahtar�n bu tan�mlay�c� taraf�ndan ba�vurulan de�erleri ve alt anahtarlar� okunabilir, ayarlanabilir veya listelenebilir (numaraland�r�labilir).

Kay�t defterindeki belirli bir konum verildi�inde, bu anahtar�n tan�mlay�c�s�n� elde etmek i�in, �nceden tan�mlanan alt� anahtardan biriyle (HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CURRENT_CONFIG ve HKEY_DYN_DATA) ba�lamal� ve istenen anahtara eri�ene kadar kay�t defteri a�ac�nda ilerlemelisiniz. Kullan�c� programlar� genelde HKEY_CURRENT_USER ve HKEY_LOCAL_MACHINE anahtarlar�ndan okur ve bu anahtarlara yazar. Ge�ilen anahtarlar zaten varsa, RegOpenKey veya RegOpenKeyEx i�levlerine y�nelik bir dizi �a�r� kullanabilirsiniz. Anahtarlar�n olu�turulmas� gerekirse, bu i�i RegCreateKey ve RegCreateKeyEx i�levleri yapar.

istenen anahtar�n tan�mlay�c�s�n� olu�turulduktan sonra, bilgileri listelemek, ayarlamak ve almak i�in kullan�lan i�levler �a��r�labilir. Her ko�ulda, Ex soneki bulunan i�levler yaln�zca 32 bit platformlarda �al��r. Soneki olmayan i�levler, Windows'un hem 16 bit hem de 32 bit s�r�mlerinde �al��abilir. 'Ex' soneki bulunmayan t�m kay�t defteri i�levlerinin 16 bit s�r�mlerle uyumlu olmad��n� unutmay�n. Ex soneki, yaln�zca 16 bit i�levlerin becerileri geni�letildi�inde eklenmi�ti. T�m�yle yeni ve 32 bit platformlara �zg� olan i�levlerde bir Ex uzant�s� bulunmamaktad�r.

RegSetValue ve RegSetValueEx i�levleri, bir de�erin ayarlar�n�n de�i�tirilmesine izin verir; RegQueryValue ve RegQueryValueEx i�levleri ise bir de�erin ge�erli ayar�n� al�r. Bu API'lerin Ex uzant�s� olmayan 16 bit s�r�mlerindeki k�s�tlamalar bu durumda ka��n�lmazd�r. 16 bit RegSetValue i�levini kullan�rken, bir de�erin adland�r�lmas� m�mk�n de�ildir; bu nedenle, her anahtarla birden �ok de�eri ili�kilendirmek i�in RegSetValue kullan�lamaz. Ayr�ca, RegSetValue ile yaz�lan t�m de�erlerde veri t�r� olarak REG_SZ kullan�l�r. Bu k�s�tlamalar, 16 bit Kay�t Defteri'nden devral�nm��t�r. RegSetValueEx, kullan�labilen veri t�rleriyle birden �ok de�er olu�turulmas�na izin verir.

Belirli Bir Kay�t Defteri Konumuna Nas�l Yaz�l�r

Projenizde hangi i�levleri kullanman�z gerekti�ini belirledikten sonra, bu makalenin sonundaki kodda yer alan ilgili bildirimleri bir temel mod�le kopyalay�n. ��erdi�i iki Visual Basic yordam� (SetValueEx ve QueryValueEx), RegSetValueEx ve RegQueryValueEx API i�levlerinin sar�c�lar�d�r ve kullan�mlar�n� olduk�a kolayla�t�r�r. A�a��daki notlarda, bu Visual Basic i�levleri kullan�lmaktad�r; ancak, dilerseniz do�rudan API'ye �a�r�lar yapabilirsiniz.

Anahtar ve De�erleri Olu�turma/De�i�tirme:

Kullan�labilen bildirimler ve yordamlarla, anahtarlar� olu�turabilir ve a�abilir, de�erleri ekleyebilir, de�i�tirebilir ve okuyabilirsiniz. A�a��daki �� ba�l�kta, bir anahtar�n nas�l olu�turulaca��, bir de�erin nas�l ayarlanaca�� veya de�i�tirilece�i ve bir de�erin nas�l sorgulanaca�� anlat�lmaktad�r.

Yeni Bir Anahtar Olu�turma:

Yeni bir anahtar olu�turmak i�in a�a��daki yordam� kullanman�z yeterlidir. CreateNewKey, olu�turulacak anahtar�n ad� yerine ge�er ve sabit de�er de altta anahtar�n olu�turulaca�� nceden tan�mlanan anahtar� g�sterir. RegCreateKeyEx �a�r�s�, izin verilen g�venlik d�zeneklerinden yararlanmaz; ancak bunu yapacak bi�imde de�i�tirilebilir. Kay�t defteri g�venli�i konusu bu makalenin kapsam� d��ndad�r.

   Private Sub CreateNewKey (sNewKeyName As String, lPredefinedKey As Long)
       Dim hNewKey As Long         'yeni anahtar�n tan�mlay�c�s�
       Dim lRetVal As Long         'RegCreateKeyEx i�levinin sonucu

       lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, _
                 vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, _
                 0&, hNewKey, lRetVal)
       RegCloseKey (hNewKey)
   End Sub

Bu yordamla,

   CreateNewKey "TestKey", HKEY_LOCAL_MACHINE

�a�r�s�, HKEY_LOCAL_MACHINE anahtar�n�n hemen alt�nda TestKey adl� bir anahtar olu�turur.

�u �ekilde CreateNewKey �a�r�s�nda bulunmak:

      CreateNewKey "TestKey\SubKey1\SubKey2", HKEY_LOCAL_MACHINE

, i� i�e ge�mi� �� anahtar olu�turur; HKEY_CURRENT_USER anahtar�n�n hemen alt�nda TestKey, onun alt�nda SubKey1 ve SubKey2 alt�nda da SubKey3.

Bir De�eri Ayarlama/De�i�tirme:

Belirli bir anahtar�n de�erini, a�a��daki k�sa yordamla olu�turabilir ve ayarlayabilirsiniz. SetKeyValue, de�erin ili�kilendirilece�i anahtar�, de�erin ad�n�, ayar�n� ve t�r�n� al�r. (SetValueEx i�levi, yaln�zca REG_SZ ve REG_DWORD anahtar�n� destekler; ancak, gerekirse d�zenlenebilir). Var olan bir sValueName i�in yeni bir de�er belirlemek, bu de�erin ge�erli ayarlar�n� da de�i�tirir.

   Private Sub SetKeyValue (sKeyName As String, sValueName As String, _
   vValueSetting As Variant, lValueType As Long)
       Dim lRetVal As Long         'SetValueEx i�levinin sonucu
       Dim hKey As Long         'a��k anahtar�n tan�mlay�c�s�

       'belirtilen anahtar� a�
       lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, _
                                 KEY_SET_VALUE, hKey)
       lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
       RegCloseKey (hKey)
   End Sub

�u �a�r�:

   SetKeyValue "TestKey\SubKey1", "StringValue", "Hello", REG_SZ

, "Hello" ayar�na sahip olan "StringValue" ad�nda ve REG_SZ t�r�nde bir de�er olu�turur. Bu de�er, "TestKey" anahtar�n�n SubKey1 anahtar�yla ili�kilendirilir.

Bu durumda, "TestKey," HKEY_CURRENT_USER anahtar�n�n bir alt anahtar�d�r; ancak bu durum, RegOpenKeyEx �a�r�s� de�i�tirilerek d�zenlenebilir. Bu �a�r�, "TestKey\SubKey1" yoksa ba�ar�s�z olur. Bu sorunu engellemek i�in, RegOpenKeyEx �a�r�s� yerine RegCreateKeyEx �a�r�s� kullan�n. RegCreateKeyEx, zaten varsa belirli bir anahtar� a�ar.

Bir De�eri Sorgulama:

Sonraki yordam, var olan bir de�erin ayar�ndan emin olmak i�in kullan�labilir. QueryValue, anahtar�n ad�n� ve bu anahtarla ili�kili de�erin ad�n� al�r ve kar��l�k gelen de�eri i�eren bir ileti kutusu g�r�nt�ler. A�a��da tan�mlanan ve yaln�zca REG_SZ ve REG_DWORD t�rlerini kullanan QueryValueEx sar�c� i�levine bir �a�r� kullan�r.

   Private Sub QueryValue (sKeyName As String, sValueName As String)
       Dim lRetVal As Long         'API i�levlerinin sonucu
       Dim hKey As Long         'a��lan anahtar�n tan�mlay�c�s�
       Dim vValue As Variant      'sorgulanan de�erin ayar�

       lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, _
   KEY_QUERY_VALUE, hKey)
       lRetVal = QueryValueEx(hKey, sValueName, vValue)
       MsgBox vValue
       RegCloseKey (hKey)
   End Sub

Bu yordamla,

   QueryValue "TestKey\SubKey1", "StringValue"

�a�r�s�, ge�erli ayar olarak "StringValue" de�erini i�eren bir ileti kutusu g�r�nt�ler ve "TestKey\SubKey1" anahtar�nda "StringValue" bulundu�unu varsayar.

Sorgulad��n�z De�er yoksa, QueryValue, 2 - 'ERROR_BADKEY' hata kodunu d�nd�r�r.

Ek Notlar:

Yukar�daki �rneklerde, kay�t defteri i�levlerinin geni�letilmi� 32 bit s�r�mleri kullan�lmaktad�r. Bu i�levler, her anahtarla birden fazla de�erin ili�kilendirilmesine izin verir. Yukar�da da anlat�ld�� gibi, 16 bit RegSetValue ve RegQueryValue, ge�erli anahtarla (her zaman REG_SZ t�r�ndedir) ili�kili tek bir de�erde �al��r. Bu i�levler, 32 bit Kay�t Defteri D�zenleyicisi'nde <NO NAME> ad�yla g�r�n�r. Bu ili�kilendirilmi� �zel de�eri ayarlamak, de�i�tirmek veya sorgulamak i�in, 16 bit kay�t defteri i�levleri kullan�lmal�d�r. 16 bit ortamda kay�t defterinden okumak ve buraya yazmak, 32 bit ortamdan �ok daha kolayd�r. Ayn� temel yordam izlenir: bir anahtar� a��n ve bir tan�mlay�c� edinin, ard�ndan da bu tan�mlay�c�y� kullanarak de�i�tirme i�levinizi �a��r�n; ancak, birden �ok ili�kili de�er veya farkl� de�er veri t�rleri i�in herhangi bir i�lem yapman�z gerekmez. 16 bit uygulama, RegCreateKey, RegOpenKey, RegQueryValue, RegSetValue ve RegCloseKey i�levlerini bildirmek yoluyla anahtarlar� ve de�erleri olu�turabilir ve de�i�tirebilir.

Baz� durumlarda, bir anahtarla herhangi bir de�erin ili�kilendirilmesi gerekmez. Uygulaman�n yaln�zca belirli bir anahtar veya de�erin var olup olmad��n� bilmesi gerekir; anahtar�n de�erleri konusunda bilgi sahibi olmas� gerekmez. Bu gibi bir durumda, belirli bir anahtar�n veya de�erin var olup olmad��n� belirlemek i�in RegEnumKey, RegEnumKeyEx ve RegEnumValue i�levleri kullan�labilir. Bu i�levler hakk�nda daha fazla bilgi i�in, API Metin G�r�nt�leyici ve/veya Windows API ba�vurusundan yararlan�n.

API ��lev ve Sabit De�er Bildirimleri

   Option Explicit

   Public Const REG_SZ As Long = 1
   Public Const REG_DWORD As Long = 4

   Public Const HKEY_CLASSES_ROOT = &H80000000
   Public Const HKEY_CURRENT_USER = &H80000001
   Public Const HKEY_LOCAL_MACHINE = &H80000002
   Public Const HKEY_USERS = &H80000003

   Public Const ERROR_NONE = 0
   Public Const ERROR_BADDB = 1
   Public Const ERROR_BADKEY = 2
   Public Const ERROR_CANTOPEN = 3
   Public Const ERROR_CANTREAD = 4
   Public Const ERROR_CANTWRITE = 5
   Public Const ERROR_OUTOFMEMORY = 6
   Public Const ERROR_ARENA_TRASHED = 7
   Public Const ERROR_ACCESS_DENIED = 8
   Public Const ERROR_INVALID_PARAMETERS = 87
   Public Const ERROR_NO_MORE_ITEMS = 259

   Public Const KEY_QUERY_VALUE = &H1
   Public Const KEY_SET_VALUE = &H2
   Public Const KEY_ALL_ACCESS = &H3F

   Public Const REG_OPTION_NON_VOLATILE = 0

   Declare Function RegCloseKey Lib "advapi32.dll" _
   (ByVal hKey As Long) As Long
   Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias _
   "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
   ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions _
   As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes _
   As Long, phkResult As Long, lpdwDisposition As Long) As Long
   Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
   "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
   ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
   Long) As Long
   Declare Function RegQueryValueExString 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
   Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias _
   "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
   String, ByVal lpReserved As Long, lpType As Long, lpData As _
   Long, lpcbData As Long) As Long
   Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias _
   "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
   String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
   As Long, lpcbData As Long) As Long
   Declare Function RegSetValueExString Lib "advapi32.dll" Alias _
   "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
   ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As _
   String, ByVal cbData As Long) As Long
   Declare Function RegSetValueExLong Lib "advapi32.dll" Alias _
   "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
   ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, _
   ByVal cbData As Long) As Long

SetValueEx ve QueryValueEx Sar�c� ��levleri:

   Public Function SetValueEx(ByVal hKey As Long, sValueName As String, _
   lType As Long, vValue As Variant) As Long
       Dim lValue As Long
       Dim sValue As String
       Select Case lType
           Case REG_SZ
               sValue = vValue & Chr$(0)
               SetValueEx = RegSetValueExString(hKey, sValueName, 0&, _
                                              lType, sValue, Len(sValue))
           Case REG_DWORD
               lValue = vValue
               SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, _
   lType, lValue, 4)
           End Select
   End Function

   Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As _
   String, vValue As Variant) As Long
       Dim cch As Long
       Dim lrc As Long
       Dim lType As Long
       Dim lValue As Long
       Dim sValue As String

       On Error GoTo QueryValueExError

       ' Okunacak verinin boyutunu ve t�r�n� belirle
       lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
       If lrc <> ERROR_NONE Then Error 5

       Select Case lType
           ' Dizeler i�in
           Case REG_SZ:
               sValue = String(cch, 0)

   lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, _
   sValue, cch)
               If lrc = ERROR_NONE Then
                   vValue = Left$(sValue, cch-1)
               Else
                   vValue = Empty
               End If
           ' DWORD i�in
           Case REG_DWORD:
   lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, _
   lValue, cch)
               If lrc = ERROR_NONE Then vValue = lValue
           Case Else
               'desteklenmeyen t�m di�er veri t�rleri
               lrc = -1
       End Select

   QueryValueExExit:
       QueryValueEx = lrc
       Exit Function

   QueryValueExError:
       Resume QueryValueExExit
   End Function

�ste | Geri Bildirim Ver

REFERENCES

Windows 95 Kullan�c� Arabirimini Programlama, B�l�m 10 - "Kay�t Defterini Kullanmak"

��lev ba�vurular� i�in: Herhangi bir Win16 veya Win32 API k�lavuzu.

�ste | Geri Bildirim Ver