Problem mit Registry

[Flo]

Hallo,
ich fange gerade erst mir der Registry an.
Nun bekomme ich die Meldung, dass er die Daten für Test01 nicht setzen konnte.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('test', true);
  Reg.createkey('test01');


end;

Waron liegt das ??? Der Ordner 'Test' ist auch nicht unter HLEY_LOCAL_MACHINE vorhanden.

Hab die Suche schon benutzt. Konnte mein Problem nicht lösen oder ich hab was übersehen.

[MathiasSimmack]

Da der Quellcode an sich nicht falsch ist (syntaktisch, meine ich - von der Umsetzung ist er katastrophal), vermute ich, dass dir die Rechte zum Schreiben in HKLM fehlen.

Passiert bei Windows NT, 2000 und XP recht häufig. Aber das wurde durchaus schon mehrfach angesprochen. Wird nur gern überlesen. :roll:

[Flo]

Ohh....stimmt.
Mit Adminrechten gehts :oops:
Habs wohl wirklich überlesen :roll:

Danke :D

[Luckie]

Und was sagt uns das? Nicht in HKLM schreiben, wenn es nicht unbedingt nötig ist.

[Flo]

Zitat:

Zitat von Luckie

Und was sagt uns das? Nicht in HKLM schreiben, wenn es nicht unbedingt nötig ist.

Sorry....versteh ich jetzt nicht so richtig :mrgreen:

[Pseudemys Nelsoni]

das du lieber darein schreiben sollst wo es jeder user (HKCU) nutzen kann ob admin oder nicht

[Flo]

Achsoooooo :mrgreen: :mrgreen:

[CalganX]

Was Matthias angesprochen hat, war die Art deines Aufbaus.

Du wirst sicherlich bei der Suche auf Sources gestoßen sein, die try...finally-Blöcke verwenden.
Diese zu Verwenden ist zu empfehlen. Wo zu setzen und was sie bringen erfährst du in der DP und in der OH.

Chris

[Flo]

Ich hab nochmal eine Frage:

Ich möchte jetzt eine Schlüssel löschen. Ich habs mit 'DeleteKey' versucht, aber irgendwie löscht der den Schlüssel nicht.

Delphi-Quellcode:

begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer',false);
reg.deletekey('AlwaysUnloadDLL');
reg.closekey;
reg.free;
end;

[CalganX]

Mit delete geht es auf jedenfall nicht. Du brauchst für DeleteKey Schreibrechte in der Registry.
Ansonsten kann das gar nicht gehen.

Chris

[Flo]

Ohh...da hab ich mich vertippt. Hab auch deletekey im Programm stehen. Ich hab auch Schreibrechte (hab den Key ja selbst erstellt). Mit 'DeleteKey' klappt das aber irgendwie nicht :(

[sakura]

Zitat:

Zitat von Flo

hab den Key ja selbst erstellt

:?: Warum existiert der dann auch bei mir :?:

...:cat:...

[Christian Seehase]

Moin Florian,

irgendwie klingt das was Du löschen willst allerdings nach einem Valuenamen und nicht nach einem Key. Klappt es so:

Delphi-Quellcode:

begin
  reg := tregistry.create;
  try
    reg.rootkey := hkey_local_machine;
    if reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer',false) then begin
      try
        reg.deletevalue('AlwaysUnloadDLL');
      finally
        reg.closekey;
      end;
    end;
  finally
    reg.free;
  end;
end;

:?:

[sakura]

@Christian: Ist schon ein Key ;-) Ich habe den auch :-D

...:cat:...

[Christian Seehase]

Moin sakura,

na gut, überredet ;-)
(bei mir gibt's den Key übrigens nicht)

@Florian:
Dann probier mal, ob das System einen Fehler meldet, nachdem Reg.DeleteKey abgearbeitet wurde, z.B. so:

Delphi-Quellcode:

if not reg.deletekey('AlwaysUnloadDLL') then begin
  ShowMessage(SysErrorMessage(GetLastError));
end;

Vielleicht ergibt das ja eine aussagekräftige Fehlermeldung.

[Flo]

Also da kommt: Das Fenster hat keine Bildlaufseiten :|

[Flo]

Mit 'DeleteValue' hats doch geklappt.

Danke an alle !!!

[Flo]

Jetzt muss ich euch doch nochmal nerven. :angle2:

Ich möchte überprüfen, ob 'AlwaysUnloadDLL' vorhanden ist.
Wie stelle ich das an ???

[CalganX]

ValueExists :roll:

Chris

[CrashMan]

Also ich würd in Sachen Registry wenn möglich HKEY_CURRENT_USER nehmen...da kann man auch ohne Adminrechte normal mit schreibrechten drauf!

[CalganX]

@CrashMan: sag das den Leuten von Microsoft. Dieser Eintrag ist Windowseigen. Sicherlich kennst du das Programm XP AntiSpy. Darin kann dieser Eintrag auch modifiziert werden.
Aber an sich hast du Recht.

Chris

[Flo]

@ Chakotay1308

Danke, hat wunderbar geklappt.

@ CrashMan
Ich muss ja in HKLC schreiben. Ich muss ja Schlüssel wie Large SystemCache, waittokillservicetimeout oder NtfsMftZoneReservation bearbeiten :wink:

[Christian Seehase]

Moin Flo,

Zitat:

Zitat von Flo

Mit 'DeleteValue' hats doch geklappt.

:shock:

Ich hab' mal im MSDN nach AlwaysUnloadDLL gesucht, und demnach handelt es sich um einen Key.

[CalganX]

Stimmt. Ich habe gerade in der Registry nachgeguckt. Eigentlich kann es also gar nicht funktionieren... :roll:

Chris