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