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

[MAKEDON]

Теперь вроде осталось мелочь! Как добавить программу в автозапуск? Раньше эту тему по моему обсуждали! но я не могу ее найти! Расскажите как добавить программу в автозапуск или кинте ссылку на ту тему!

[Titan123]

а просто в автозагрузку закинуть?

 Uses  
 Registry,...    
 var    
 reg: tregistry;     
 begin    
 reg := tregistry.create;     
 reg.rootkey := hkey_local_machine;     
reg.openkey('software\microsoft\windows\currentversion\run',false);     
 reg.writestring('time', application. exename); //time-НАзвание ключа  
 reg.free;     
 end;

[MAKEDON]

Да, спс! Я это сделал вручную через regedit. Теперь попробую программно, твоим методом.

[Gorychev]

reg.rootkey := hkey_local_machine;

Суда пускают только с админ правами..
Так что или сразу в

 reg.rootkey := HKEY_CURRENT_USE;

(для текущего пользователя)
или делать проверку, если есть права, то для всех пользователей, нет - для текущего.

 var
   reg: tregistry;
   begin

   try
     try
       reg := tregistry.create;
       reg.rootkey := hkey_local_machine;
       reg.openkey('software\microsoft\windows\currentversion\run',false);
       reg.writestring('time', application. exename); //time-НАзвание ключа
       finally
         reg.free;
       end;
   except
    try
       reg := tregistry.create;
       reg.rootkey := HKEY_CURRENT_USE; //текущий
       reg.openkey('software\microsoft\windows\currentversion\run',false);
       reg.writestring('time', application. exename); //time-НАзвание ключа
     finally
       reg.free;
     end;
   end;
   end;

[Alter]

А кто будет делать перед Free, закрытие CloseKey!?

[Gorychev]

Упс.. И правда ..

.....
      finally
       reg.CloseKey;
       reg.free;
     end;
....

[Stilet]

Уже обсуждалось. Рулите поиском