In Registry schreiben

[neuchr]

Hallo,

ich bin neu hier als aktiver User. Ich habe schon viel mitgelesen. Jetzt habe ich aber seit ein paar Tagen selber ein Problem wo ich trotz Google und der suche hier nicht weiterkomme. Ich hoffe man kann mit hier helfen.
Ich möchte in die Registry schreiben. Mit auslesen habe ich kein Problem. Ich habe mir zum testen einen Button angelegt mit dem ich dann einen Key unter HKEY_LOCAL_MACHINE\Software schreiben möchte. Was mache ich hier falsche. Ich bin als Admin angemeldet, und nutze WIN7-64.

Danke und Gruß
neuchr

Code: Alles auswählen

procedure TForm1.Button16Click(Sender: TObject);
var Registry : TRegistry;
    test : string;
begin
  Registry:=TRegistry.Create(KEY_READ OR $0100);
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
 
  if NOT (Registry.OpenKey('\SOFTWARE\Test', true)) then
    Begin
      IF Registry.CreateKey('Neuhaus') THEN showmessage('Key erstellt')
      ELSE showmessage('Key nicht erstellt');
    end
  ELSE showmessage('Key ist vorhanden');
 
  Registry.CloseKey;
  Registry.free;
end;

[Komoluna]

Erstmal willkommen im Forum,

mit deinem Problem kann ich dir leider nicht helfen, da ich die registry noch nie benutzt habe.

Aber wenn du das nächste mal code postest, verwende doch bitte Highlighter:

Code: Alles auswählen

Procedure xy(a:Integer);
begin
  bla := a*a+3;
end;

MFG

Komoluna

P.S.: Du kannst deinen beitrag auch editieren, und musst keinen neuen Post für deinen Code erstellen.

[theo]

Woher hast du diese Parameter KEY_READ OR $0100 ?
Was sollen die bezwecken?

[shokwave]

Hallo,

hab's gerade mal probiert. Du musst dein Programm mit Adminrechten starten. Auch wenn in der Benutzerverwaltung von Windows steht, dass du Admin bist bedeutet das nicht das du alles darfst. Da der HKey_Local_Mashine Einstellung enthält die das gesamte System betreffen und nicht nur den aktuellen Nutzer, brauchst du erhöhte Rechte.

In den Projekteinstellungen/Anwendung kannst du die "Ausführungsebene" einstellen. Bei mir crasht dann allerdings der Debugger.

Ansonsten schließe ich mich der Frage von Theo an. Solche Parameter hab ich noch nie benutzt.

[Socke]

In den Projekteinstellungen/Anwendung kannst du die "Ausführungsebene" einstellen. Bei mir crasht dann allerdings der Debugger.

Dann musst du den Debugger natürlich auch als Admin starten (bzw. ganz Lazarus).

[mschnell]

Ich möchte in die Registry schreiben.

I.A. keine gute Idee.

Wenn Du eigene Informationen speichern willst, verwendest Du besser INI oder XML - Dateien die Du an sinnvollen Stellen hinterlegst uns sinnvoll benennst.

-Michael

[shokwave]

Ich möchte in die Registry schreiben.

I.A. keine gute Idee.

Würde ich so pauschal nicht sagen, aber die Frage warum ausgerechnet dorthin (HKLM) geschrieben werden soll, stellt sich natürlich schon. Das entspricht dem speichern von Daten im Windowsverzeichnis und ist natürlich keine gute Idee.

[neuchr]

Danke ich habe es das muss natürlich KEY_WRITE heißen.

Das ist dafür da um mit einer 32 BIT Applikation auf die Registry einer 64 Bit Betriebssystem zuzugreifen.

Habe das jetzt so gelöst. (Fehler Behebung fehlt noch)

Code: Alles auswählen

procedure TForm1.Button16Click(Sender: TObject);
var Registry : TRegistry;
begin
  Registry:=TRegistry.Create(KEY_WRITE OR $0100);
  Registry.RootKey:=HKEY_CURRENT_USER;
 
  if (Registry.OpenKey('\SOFTWARE\Test', true)) then
    Begin
      registry.writestring('Wert1','Hallo');
      registry.writestring('Wert2','JA');
    end;
 
  Registry.CloseKey;
  Registry.free;
end;       

[theo]

Warum verwendest du nicht die Konstante? Dann versteht man das auch besser.

Code: Alles auswählen

 Registry:=TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);