klucz rejestru

[Failure]

witam
mam kolejny problem, chce w BCB 06 dodac klucz do rejestru, tak zeby program uruchamial sie przy kazdym starcie rejestru, znalazlem pelno tego w delphi ale do bcb 06 nic :/ moglby mi ktos dac kawalek kodu odpowiedzialnego za dodawanie kluczu do rejestru? z delphi probowalem przekonwertowac kod na kod w BCB ale przy drugiej linicje kompilator zglupial...
pozdrawiam
PS: dlaczego jest az taka ilosc programistow delphi? co o tym swiadczy, ja jak probowalem w tym pisac okropnie mnie denerwowala skladnia, i to ze nie ma roznicy czy napiszemy np Canvas, canvas, czy CANVAS...

[h3x]

skozystaj z gotowego api (afair RegCreateKeyEx). pamietaj co to pointer a co wartosc...

PS: dlaczego jest az taka ilosc programistow delphi?

bo szybko sie maluje w tym okienka

[hedVB]

API

Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long
 - lista pod kluczy
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long - zamyka otwarty klucz
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
-otwiera lub tworzy klucz (jeśli nie istnieje)

Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long - wprowadzanie nowej wartości

Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long - kasowanie wartości

Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
- kasuje pusty klucz
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long - odczytuje wartość

Public 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
Public Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long - otwiera klucz (więcej możliwosci)
Public Declare Function SHDeleteKey Lib "shlwapi.dll" Alias "SHDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long - kasuje klucz wraz z podkluczami

Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long - numeruje wartości

+ stałe

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_LOCAL_MACHINE = &H80000002