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

Delphi-Quellcode:

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!!! :cry:

Delphi-Quellcode:

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:

Delphi-Quellcode:

if config.CheckBox1.Checked = TRUE then

Gruß
Michael!

[Chewie]

Oder so:

Delphi-Quellcode:

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.