TRegistry:DeleteKey [geklärt]

[Andreas L.]

Was ist hier wieder falsch???

Delphi-Quellcode:

procedure Tmain.Button2Click(Sender: TObject);
var Reg : TRegistry;
    a:Boolean;
begin
if config.CheckBox1.Checked :=TRUE then
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKEY_CURRENT_USER;
  a:= Reg.deletekey('\MySQL_Tool');
  Reg.Free;
Application.Terminate
else Application.Terminate;
end;

thx

[brainmue]

Hallo!

Ich glaube Du hast den OpenKey vergessen!

Delphi-Quellcode:

procedure Tmain.Button2Click(Sender: TObject);
var Reg : TRegistry;
    a:Boolean;
begin
if config.CheckBox1.Checked :=TRUE then
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKEY_CURRENT_USER;
  Reg.OpenKey('\SOFTWARE\',true);
  // Ich nehme mal an, das Du vergessen hast Ihm zu sagen, wo der Key eigentlich ist!
  a:= Reg.DeleteKey('MySQL_Tool');
  // Außerdem würde ich den vorrangestellten Backslash beim KeyNamen weg lassen!
  Reg.Free;
Application.Terminate
else Application.Terminate;
end;

Ich hoffe, das hilft Dir!

Gruß
Michael!

[Andreas L.]

DDanke, das konnte ich auch brauchen, aber das Porblem ist das hier if config.CheckBox1.Checked :=TRUE then der Fehler kommt. Ausdrückstyp muss Boolean sein.

[brainmue]

Das ist gut!

Ich bin schon so blind!
Die Lösung ist aber so einfach, das Du und ich sie natürlich nicht sehen konnten!
Eine Ausrede am Tag ist erlaubt!!!

if config.CheckBox1.Checked :=TRUE then Du schreibst ja einen Wert rein!!!
Es darf kein : da sein, wenn Du einen vergleich machen möchtest!

So sollte es gehen:
if config.CheckBox1.Checked = TRUE then Gruß
Michael!

[Chewie]

Oder so:
if Config.Checkbox1.Checked then

[Pseudemys Nelsoni]

ich denke auch das du ein "begin...end" vergessen hast

Delphi-Quellcode:

procedure Tmain.Button2Click(Sender: TObject); 
var Reg : TRegistry; 
    a:Boolean; 
begin 
if config.CheckBox1.Checked :=TRUE then 
  Reg:=TRegistry.Create; 
  Reg.Rootkey:=HKEY_CURRENT_USER; 
  Reg.OpenKey('\SOFTWARE\',true); 
  // Ich nehme mal an, das Du vergessen hast Ihm zu sagen, wo der Key eigentlich ist! 
  a:= Reg.DeleteKey('MySQL_Tool'); 
  // Außerdem würde ich den vorrangestellten Backslash beim KeyNamen weg lassen! 
  Reg.Free; 
Application.Terminate 
else Application.Terminate; 
end;

müsste meiner meinung nach so aussehen:

Delphi-Quellcode:

procedure Tmain.Button2Click(Sender: TObject);
var Reg: TRegistry;
    a: Boolean;
begin
if config.CheckBox1.Checked :=TRUE then
  begin
    Reg := TRegistry.Create;
    Reg.Rootkey := HKEY_CURRENT_USER;
    Reg.OpenKey('\SOFTWARE\',true);
    a := Reg.DeleteKey('MySQL_Tool');
    Reg.Free;
    Application.Terminate;
  end
else Application.Terminate;
end;

[Andreas L.]

Danke an euch alle. es geht.