Hallo,
ich habe folgenden Source :
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
else
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
ini.WriteString('Drive O+C','Start mit Windows','false');
end;
ini.free;
ini:=TIniFile.Create('config.ini');
try
begin
a := ini.ReadString('Drive O+C','Start mit Windows', '');
Reg := TRegistry.Create;
begin
if a = 'true' then
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('Drive O+C', ParamStr(0));
Reg.CloseKey;
label3.caption := 'ja'; // das hab ich nur um zu testen ob das wirklich abgearbeitet wird - und ja es wird abgearbeitet
finally
Reg.Free;
end
else
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.DeleteValue('Drive O+C');
Reg.CloseKey;
label3.caption := 'ja' // das hab ich nur um zu testen ob das wirklich abgearbeitet wird - nein, es wird nicht abearbeitet - es wird nicht im label angezeigt...
finally
Reg.Free;
end;
end;
end;
finally
ini.free;
end;
Und erhalte beim compilieren folgende Fehler:
Zitat:
Erzeugen
[Fehler] main.pas(176): 'END' erwartet, aber 'ELSE' gefunden
[Fehler] main.pas(177): Operator oder Semikolon fehlt
[Fehler] main.pas(190): 'END' erwartet, aber 'FINALLY' gefunden
[Fehler] main.pas(193): EXCEPT oder FINALLY erwartet
[Fehler] main.pas(195): ';' erwartet, aber '.' gefunden
[Fehler] main.pas(197): Deklaration erwartet, aber Dateiende gefunden
[Fataler Fehler] Project2.dpr(6): Verwendete
Unit 'main.pas' kann nicht compiliert werden
Nur kann ich die Fehler nicht nachvollziehen.
Ich finde einfach den Fehler nicht
Hoffe ihr seht was ich falsch gemacht habe.
Danke schon mal,
MfG