Det finns som bekant många lösningar på kod hur man infogar poster i registret från programmet. Jag har valt att lägga koden för detta i Form_Load händelsen. Men jag skulle vilja ha en kontroll om dessa poster redan finns, i så fall gå vidare i händelsemodulen. Har provat en del lösningar men dessa slängde jag för de funkade inte. Vet någon????

/W

Liten och enkel lösning. Sen kan man bygga på med mera funktion men denna lilla fungerar.

<code>
Private Sub Command1_Click()
On Error Resume Next
Set ws = CreateObject("WScript.Shell")
strAnswer = ws.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
If Err.Number Then
MsgBox "Ooooj Ingen nyckel"
Else
MsgBox "Resultat: " & strAnswer
End If
End Sub
</code>

/Janne

Tack JanEriksson

Jag ska prova ditt tips. Men jag förstår inte 'CreateObject' vad händer då?
Måste erkänna att jag sitter som på nålar när jag måste böka i registret. Skiten kan ju krascha.

/W

CreateObject skapa en instans av ett objekt. I detta fall av Wscript.Shell och jag har för mig att det är en ocx som heter wshom.ocx.

Fördelen med denna kod är att du inte grottar så mycket i registret vilket kan hända med egenskriven register kod. Den är mycket "fattig" dvs man kan inte göra så mycket (slipper nålarna) men det går bra att skriva, läsa och ta bort nycklar.

Följande methoder kan du använda. Sök på nätet så lär du hitta mycket info om detta.

ws.RegWrite
ws.RegRead
ws.RegDelete

Glöm inte stänga objektet efter dig.

Set ws = Nothing

Så länge du inte skriver eller ta bort nycklar så är det lugnt. :-)

/Janne

'För att kontrollera om en registernyckel finns öppnar du nyckeln med API-kommandot RegOpenKey EX.

Dim hkey As Long
Dim strPath As String
Dim R As Long
Dim keyhand As Long

hkey = HKEY_CURRENT_USER
strPath = "Software\Microsoft\Windows\CurrentVersion\"
R = RegOpenKey(hkey, strPath, keyhand)

Select Case R
Case Is = 0
MsgBox "Registernyckeln finns"
Case Is > 0
MsgBox "registernyckeln finns ej"
End Select
R = RegCloseKey(keyhand)
End Sub



'För att kontrollera om ett strängvärde i en nyckel finns kör du API-kommandot RegQueryValueEx EX.

Dim hkey As Long
Dim strPath As String
Dim R As Long
Dim lResult As Long
Dim keyhand As Long
Dim lDataBufSize As Long
Dim strValue As String

strValue = "Signature"
hkey = HKEY_CURRENT_USER
strPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\Cache"


R = RegOpenKey(hkey, strPath, keyhand)
lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)

Select Case lResult
Case Is = 0
MsgBox "Strängvärdet finns i Registernyckeln"
Case Is > 0
MsgBox "Strängvärdet finns ej i Registernyckeln"
End Select
R = RegCloseKey(keyhand)




'I båda exemplen måste du infoga denna kod i en mudul.

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 HKEY_PERFORMANCE_DATA = &H80000004

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
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







Lycka till
johan

Tack alla tipsare !!!
Nu ska jag testa förslagen.

/W