Registry Key löschen

[DeddyH]

Sicher gibt er "Done" aus, da Du ja den Rückgabewert von DeleteKey nicht auswertest.

[DarkProtector]

Ok aber was genau bringt mir das? Ich weiß ja das es nicht funktioniert. Und falls ich das ganze versuchen soll muss ich das mit einer Boolean Variable machen, richtig?

[Teekeks]

Du hast ja den slash immer noch nicht gesetzt:

Delphi-Quellcode:

procedure TForm1.UnlockClick(Sender: TObject);

var reg:TRegistry;

begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try
   reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey({-->}'\'{<--}+'Software\Microsoft\Windows\CurrentVersion\Policies\System', false)
   then
    begin
    reg.Deletekey('DisableRegistryTools');
    memo1.Lines.Text:=memo1.Lines.Text+'...Done'+#13;
    end
finally
   reg.CloseKey;
end;

[DarkProtector]

Der ist schon gesetzt keine Sorge. Daran liegt es nicht.

[Rakshasa]

Tritt das Problem bei jedem beliebigen Schlüssel auf oder nur bei dem von Dir angegebenen?

[Teekeks]

Zitat:

Zitat von DarkProtector

Ok aber was genau bringt mir das? Ich weiß ja das es nicht funktioniert. Und falls ich das ganze versuchen soll muss ich das mit einer Boolean Variable machen, richtig?

falsch:

Delphi-Quellcode:

    begin
    if reg.Deletekey('DisableRegistryTools') then
      memo1.Lines.Text:=memo1.Lines.Text+'...Done'+#13;
    end

[DarkProtector]

Habe das mal eingefügt,sagt nun immer noch "Done", passieren tut weiterhin gar nichts.

Nochmal mein Quelltext:

Delphi-Quellcode:

procedure TForm1.UnlockClick(Sender: TObject);

var reg:TRegistry;

begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try
   reg.RootKey:=HKEY_CURRENT_USER;
   if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', false)
   then
    begin
     if reg.Deletekey('DisableRegistryTools') then
     memo1.Lines.Text:=memo1.Lines.Text+'...Done'+#13
     else memo1.Lines.Text:=memo1.Lines.Text+'...Fehler!'+#13;
    end
   else memo1.Lines.Text:=memo1.Lines.Text+'...Fehler!'+#13;
finally
   reg.CloseKey;
end;

Bei einem anderen Schlüssel funktioniert dieser Text ebenfalls nicht.

[Luckie]

Mach die Fehlerbehandlung doch endlich mal gescheit:

Delphi-Quellcode:

else memo1.Lines.Text:=memo1.Lines.Text+SysErrorMessage(GetLastError);

Dann weißt du auch, warum es fehl schlägt.

[SirThornberry]

@Luckie: Das könnte aber so schief gehen. Denn die Abfrage von memo1.Lines.Text nutzt auch Apifunktionen welche eventuell den LastError setzen.

Was mir aber schon im ersten Beitrag aufgefallen ist. Warum wird der gesamte Text des Memos abgefragt um dann das abgefragte zu erweitern und komplett zu zuweisen. Sinnvoller wäre hier doch die Verwendung von

Delphi-Quellcode:

memo1.lines.add(Text_to_add);

[RWarnecke]

Hallo DarkProtector,

kann es sein, dass DisableRegistryTools garkein Key ist, sonder ein Wert in der Registry. Denn dann musst Du DeleteValue nehmen statt DeleteKey.