[жекаизжека]

Помогите с включением и выключением автозагрузке программы....а что я что то не пойму...

[lmikle]

А поподробнее?
Какой автозагрузки? Вместе с виндой?

[жекаизжека]

да, вместе с виндой...что бы на форме можно было выбирать загрузку exe файла при включенее компьютера или нет....что то вроде на форме есть
CheckBox1 и есть он квлючен(галка) то приложение грузиться вместе с виндой если нет то нет

[жекаизжека]

// автозагрузка

Код:

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

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

[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

[жекаизжека]

а с чекбоксом все правильно??? а то фигня какая то..