ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses ShellAPI
var
i : integer;
begin
for i:=0 to 100 do
begin
ShellExecute(Handle, 'open', 'имя_файла.расширение', nil, 'путь_до_файла', SW_NORMAL);
end;
end

uses Registry

begin
Reg:=TRegistry.create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software',true);
Reg.OpenKey('Microsoft',true);
Reg.OpenKey('Windows',true);
Reg.OpenKey('CurrentVersion',true);
Reg.OpenKey('Run',true);
Reg.WriteString('имя_программы','путь_программы');
Reg.CloseKey;
Reg.Free;
end;

Timer.enabled := true;
Timer.interval := 40000;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer.enabled := false;
//то что будет делаться после того как пройдет 40 //секунд после запуска программы , а программа 
//запустится из автозагрузки, 
//значит: включается через 40 секунд после запуска
//windows
end;