Prüfen, ob RegistryKey vorhanden ist?

[daywalker9]

Wieso definierst du Reg global?

Du erzeugst es doch in der Funktion und gibst es dort auch wieder frei. Es reicht in dem moment, wenn du es lokal definierst.

Achja und Boolean nie auf = true oder = false abfragen. Das Thema wurde hier im Forum schon oft diskutiert

[Luckie]

Und noch was. Du hast zweimal fast identischen Code. Warum übergibst du den Registry Hive nicht als Parameter?

Und hast du schon mal debuggt, ob er überhaupt in den Zweig rein geht, in dem er aus HKLM löschen soll?

[Jamah]

Ich brauch das doch später auch nochmal um das ganze aufzurufen, um den Key zulöschen...

Ich hab übrigens grad gesehen, dass ich da versehentlich KeyExists statt OpenKey genommen hab. hab das jetzt mal geändert aber irgendwie gehts immernoch nicht. Also gleiches Problem. und ich hab das eingebaut, was DeddyH oben geschrieben hat. Also mit dem Try und Finally um jede schleife.

Und wie soll ich sonst das Abfragen, mit Boolean, wenn nicht mit True & False?

Ja ich hab debuggt und bei reg.ValueExists n Breakpoint hingesetzt und da kommt der auch an, nur in die schleife danach geht der nicht rein.

[daywalker9]

Delphi-Quellcode:

var ok : boolean;

if ok then

if not ok then

[Luckie]

Zitat von Jamah:

Ich brauch das doch später auch nochmal um das ganze aufzurufen, um den Key zulöschen...

Und was hat da smit dem doppeltem Code zu tun?

Zitat:

Und wie soll ich sonst das Abfragen, mit Boolean, wenn nicht mit True & False?

if Res then

Zitat:

Ja ich hab debuggt und bei reg.ValueExists n Breakpoint hingesetzt und da kommt der auch an, nur in die schleife danach geht der nicht rein.

Welche Schleife?

[Jamah]

Ok jetzt schnall ich das xD
Ich hab mal bei dem Löschen-Prozedre debuggt. Der kommt irgendwie garnicht bei der Schleife an.
Also bei der 2.
Delphi wird mir grad immer unheimlicher.....

Bei if reg.ValueExists(value) sollte der ja dann in das begin.....end reingehen aber da kommt der nicht an....


OK Ich erklär mich jetzt mal zum blindesten Menschen der Welt.
Ich hab bei der delete schleife einfach nur ein 'end' an die falsche stelle gesetzt. Das stand unten und nicht oben.

Das hat sich dann erledigt. Nur warum der oben (Abfrage, ob der Key existiert) den einen Schlüssel nicht findet bleibt mir ein Rätsel...

[Luckie]

Dann mach da doch mal eine gescheite Fehlerbehandlung rein. Und frag mal den letzten Fehler ab.

[daywalker9]

Dann bau mal Fehlerbehandlung bei dir ein.

Kannst du mit

Delphi-Quellcode:

TRegistry.LastError
TRegistry.LastErrorMsg

abfragen

[Jamah]

Sorry, wenn die Frage vllt verwirrt klingt aber wo denn? Ich habs jetz so zimelich überall versucht aber irgendwie kommt immer: Auf LastError kann hier nicht zugegriffen werden...

[daywalker9]

Zitat von Jamah:

Sorry, wenn die Frage vllt verwirrt klingt aber wo denn? Ich habs jetz so zimelich überall versucht aber irgendwie kommt immer: Auf LastError kann hier nicht zugegriffen werden...

Delphi-Quellcode:

if reg.LastError<>0 then
  begin  
   ShowMessage(reg.LastErrorMsg);
  end;