Ich hab den ersten Teil deines Quelltextes mal ein wenig umformatiert (ist übersichtlicher mehr nach meinem Geschmack).
Dabei habe ich fragwürdige Stellen mit Kommentar gekennzeichnet. Wenn du dir diese Stellen nochmal anschaust und korrigeirst, sollte es laufen (oder zumindest ein paar Fehlermeldungen weniger vom Compiler geben
).
Delphi-Quellcode:
procedure TForm1.start1Click(Sender: TObject);
var ini: TIniFile;
a: string;
Reg: TRegistry;
begin
start1.checked := not start1.checked;
if start1.checked = true then
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
ini.WriteString('Drive O+C','Start mit Windows','true');
end//if
else
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
ini.WriteString('Drive O+C','Start mit Windows','false');
end;//else
ini.free;
ini:=TIniFile.Create('config.ini');
try
begin///<--wozu steht hier ein BEGIN?? bei try braucht man keins
a := ini.ReadString('Drive O+C','Start mit Windows', '');
Reg := TRegistry.Create;
begin///und das hier? was beginnt den hier? (daran wirds wohl liegen
if a = 'true' then
begin
Reg := TRegistry.Create;
....//usw. usw.
MfG
Binärbaum
[edit]
Ich würde dir auch vorschlagen, deinen Quelltext anders bzw. so einzurücken, dass man die Struktur besser erkennen kann. Das ist dann nicht nur für dich leichter, sondern auch für alle anderen, die hier im Forum deinen Quelltext lesen.
[/edit]