[lmikle]

Сообщение от жекаизжека

// автозагрузка
if Form3.CheckBox1.Checked then
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.WriteString('Software\Microsoft\Windows\Curren tVersion\Run','button.exe','C:\Program Ашду\Кнопка\button.exe');
Reg.Free;
else
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.DeleteKey('Software\Microsoft\Windows\CurrentV ersion\Run','svhost','C:\WINDOWS\but1.exe');
Reg.Free;
end

но ругаеться на else

Угу, ругается. Учим паскаль, блин.

Код:

if Form3.CheckBox1.Checked then
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run','button.exe','C:\Program Ашду\Кнопка\button.exe');
Reg.Free;
end
else
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Run','svhost','C:\WINDOWS\but1.exe');
Reg.Free;
end