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;