Добавление программы в автозагрузку Delphi

[Morty]

Это сама процедура

procedure Autorun(Flag:boolean; NameParam, Path:String);
var Reg:TRegistry;
begin
if Flag then
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString(NameParam, Path);
Reg.Free;
end
else
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
Reg.DeleteValue(NameParam);
Reg.Free;
end;
end;

А вот уже код который будет запускать нашу процедуру:

Autorun(true,'PROGRAMM_NAME', 'PROGRAMM_PATH');

Где:
true - включить автозагрузку.
false - отключить автозагрузку.
PROGRAMM_NAME - название программы которое будет отображаться в автозагрузке.
PROGRAMM_PATH - путь до программы которую мы будем запускать при старте винды.

 

[Игорь6709]

А если в батник прописать будет работать?

 

[Morty]

Игорь6709, нет