Registry durchsuchen

[p80286]

Leider beschreibst Du nicht genau, was Dich zu der Überzeugung bringt, Das Programm sei korrupt.
(von mir hat es sich nicht schmieren lassen)

Unter D7 tut es was es soll, und verdaut auch den überflüssigen Mehrfachaufruf von
RG.Readstring() .
Du bist Dir im Klaren darüber, daß OpenKey für eine erfolgreiche Durchführung Schreibrechte in der Registry benötigt?
Für Billy Normalbenutzer ist da ganz schnell das Ende der Fahnenstange erreicht.

Gruß
K-H

[cherry]

Zitat von p80286:

Leider beschreibst Du nicht genau, was Dich zu der Überzeugung bringt, Das Programm sei korrupt.
(von mir hat es sich nicht schmieren lassen)

Wie gesagt, wenn ich den Teil mit RG.Readstring() nicht auskommentiere sondern mitkompiliere, durchläuft das Programm nicht alle Schlüssel. Z.b. wenn ich HKEY_LOCAL_MACHINE durchsuche bleibt es irgendwo in Software hangen, der ganze Schlüssel System wird dann nicht durchsucht. Und das geht bei dir? auch wenn du den ganzen Teil mitkompilierst.

Zitat von p80286:

Unter D7 tut es was es soll, und verdaut auch den überflüssigen Mehrfachaufruf von
RG.Readstring() .

Wird die Partie wo ich die Werte vergleiche zu oft aufgerufen? oder wie kann ich das verstehen?

Zitat von p80286:

Du bist Dir im Klaren darüber, daß OpenKey für eine erfolgreiche Durchführung Schreibrechte in der Registry benötigt?
Für Billy Normalbenutzer ist da ganz schnell das Ende der Fahnenstange erreicht.

jep das ist mir klar. Es geht dann noch weiter, wenn ich auch davon überzeugt bin das das Progi einwandfrei funktioniert, werde ich eine funktion einbauen die z.B. gefundene Werte löschen kann.

[p80286]

der Doppelaufruf steht hier:

Delphi-Quellcode:

if (DataType= rdString) or (DataType = rdExpandString) then
begin
  RG.ReadString(valuenames[I]);   {---------------------------------------!!!!!!}

          (*// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL// <-- MARKIERTER TEIL*)
// data := '';
// data := RG.ReadString(valuenames[I]);      {-------------------------------------!!!!!!!!}
// if (data <> '') then
// begin
// if Pos(UPPERCASE(txt),UPPERCASE(data)) > 0 then // VALUE FOUND 
// begin
// Writeln('[KEY]'+RG.CurrentPath);
// Writeln(' [Valuename]'+valuenames[i]);
// Writeln(' [VALUE]'+data);
// end;
// end;
          (**)

Beim ersten Mal legst Du nur die gelesenen Daten nicht ab. Wofür das gut sein soll ist mir schleierhaft.

Wenn Dein Programm sich an der LOCAL_MACHINE verschluckt, dann solltest Du vielleicht einmal ganz genau protokollieren was für Daten gelesen werden und was wirklich abläuft. Da letztlich jede Registry individuell ist und Dein Programm auf anderen Rechnern ohne Fehler läuft, könnte es sein, da? Deine Registry eine aussergewöhnliche Kombination von Rechten/Daten/Schlüsseln aufweist.

Gruß
K-H

[cherry]

Hallo, sorry dass ich mich erst jetzt wieder melde...

@Doppelter Aufruf: Oops falsch rüber gekommen. ReadString() wird nicht zweimal aufgerufen. (wenn man nicht beides Ent-Auskommentiert )

Zitat:

im ersten Mal legst Du nur die gelesenen Daten nicht ab. Wofür das gut sein soll ist mir schleierhaft.

Ich habe nur einen Test gemacht. Das Problem liegt anscheinend NUR an ReadString(). Lasse ich den auskommentierten Teil und die Zeile RG.ReadString(valuenames[I]); nicht kompilieren, macht das Programm was es soll. Die Zeile RG.ReadString(valuenames[I]); reicht, damit das Programm nicht tut was es soll. Da verstehe ich die Welt nicht mehr... muss ich irgendwie nach ReadString ein CloseReadString machen? Oder was kann das bloss sein?

Code:

successfully opened: \SOFTWARE\VMware, Inc.\VMware Workstation <--> SOFTWARE\VMware, Inc.\VMware Workstation
successfully opened: \SOFTWARE\VMware, Inc.\VMware Workstation <--> SOFTWARE\VMware, Inc.\VMware Workstation
successfully opened: \SOFTWARE\VMware, Inc. <--> SOFTWARE\VMware, Inc.
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE\Wilson WindowWare\Settings\WWWBATCH <--> SOFTWARE\Wilson WindowWare\Settings\WWWBATCH
successfully opened: \SOFTWARE\Wilson WindowWare\Settings\WWWBATCH <--> SOFTWARE\Wilson WindowWare\Settings\WWWBATCH
successfully opened: \SOFTWARE\Wilson WindowWare\Settings <--> SOFTWARE\Wilson WindowWare\Settings
successfully opened: \SOFTWARE\Wilson WindowWare <--> SOFTWARE\Wilson WindowWare
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE\Windows 3.1 Migration Status <--> SOFTWARE\Windows 3.1 Migration Status
successfully opened: \SOFTWARE\Windows 3.1 Migration Status <--> SOFTWARE\Windows 3.1 Migration Status
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE\Wise Owl, Inc. <--> SOFTWARE\Wise Owl, Inc.
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE <--> SOFTWARE
successfully opened: \SOFTWARE\Description\Microsoft\Rpc <--> SOFTWARE\Description\Microsoft\Rpc
successfully opened: \SOFTWARE\Description\Microsoft <--> SOFTWARE\Description\Microsoft
successfully opened: \SOFTWARE\Description <--> SOFTWARE\Description
successfully opened: \SOFTWARE <--> SOFTWARE
ERROR WHILE OPENING: \ <--> SOFTWARE

Nach dem Key "SOFTWARE\Wise Owl, Inc." sollte eigentlich der nur noch ein Key namens "Zone2" (des ist allerdings leer) kommen, dann kommt der nächste Hauptkey von LM nähmlich SYSTEM. Das passiert aber nicht. "Nach SOFTWARE\Wise Owl, Inc." gehts zurück nach "Description". Der Key ist aber viel weiter oben und wurde bereits durchlaufen. Das alles passiert aber nicht, wenn die Zeile ReadString() nirgens im Code steht. Verhext?!