Reg-Key prüfung

[Jukkales]

Ich habe ein problem mit dem Code: (hab jetzt einfach nuk kopiert.)

Private Declare Sub InitCommonControls Lib "comctl32" ()
SimDiscReg = ExistValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Engelmann Media", "SimDisc3")
Private Sub Form_Initialize()
  Call InitCommonControls
End Sub
Private Sub end_Click()
End
End Sub
Private Sub install_Click()
Shell "data\SimDisc.exe", vbNormalFocus
End Sub
Private Sub patch_Click()
If SimDiscReg = 1 Then
Shell "data\SimDiscUpdate.exe", vbNormalFocus
Else
MsgBox "Bitte Installieren sie zuerst SimDisc 3!", vbInformation, "Installieren sie SimDisc!"
End If
End Sub

Nun das Problem:
#

Wenn ich die zeile
SimDiscReg = ExistValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Engelmann Media", "SimDisc3")

so lasse kommt nen fehler das sie ohne Sub anweisung nicht geht. setze ich die in ein Sub kommt nen fehler das das nicht geht was nun ßß

 

[Jukkales]

sorry für das dp:

ich sehe gerade ich hab ganzschön was vergessen.

Diesmal ne andere frage wie kann ich machen wenn ich auch einen Button Klicke das es geprüft wird od ein Schlüßßel in der Regist. ist wenn ja gehts weiter wenn nicht kommt ne meldung

 

[PoNr]

Hi,
das ist ganz einfach, du musst nur den entsprechenden Key auslesen, wenn dun Fehler bekommst, existiert er halt nicht.

Falls du nicht weißt wie du die REg. ausliest, dann hab ich hiern Link für dich:
Nettes Beispiel zum auslesen, Schreiben der REgistry, von VB@rchiv

Falls du Probleme hast, einfach posten.

MfG
PoNr