Кто рубит Delphi 7 ???

[Гость Graf Voron]

Помогите!!!!!!!

Не знаю как сделать в Делфе включение и выключение программ из автозагрузки/ <msconfig> в Windows Xp/Какой ключ из реестра или вообще как это замутить.

Заранее БАЛЬШОЕ СПАСИБО!!!!!

[Darhazer]

Есть несколько ключа в реестре:

HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run

HKLM\Software\Microsoft\Windows\CurrentVersion\Run

HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce

HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices

HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce

HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run

HKCU\Software\Microsoft\Windows\CurrentVersion\Run

HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce

HKCU\Software\Microsoft\Windows\CurrentVersion\RunServices

HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce

HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows, the "run" and Load" keys

(HKLM = HKEY_LOCAL_MACHINE

HKCU = HKEY_CURRENT_USER)

Изменено 26 сентября, 2005 пользователем Darhazer

[yuriks]

Когда запускаеш msconfig то справа пишет : расположение

Там и написано откуда прога запускается!

[serg_iv]

uses registry;// эту штуку допиши вверху в uses

//теперь брось на форму checkbox, два раза по нему кликни и туда впиши это:

procedure TForm1.CheckBox1Click(Sender: TObject);

var

registr:Tregistry;

begin

registr:=Tregistry.Create;

registr.RootKey:=HKEY_LOCAL_MACHINE;

registr.OpenKey('software\microsoft\windows\'+'currentversion\run',false);

if checkbox1.Checked then

registr.WriteString(application.Title, paramstr(0))

else

registr.DeleteValue(application.Title) ;

registr.Free;

end;

//поставишь галочку - автозапуск, уберёшь нет автозапуска.

//удачи