Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Автозапуск!!!

Автор: Sergey89 9.9.2004, 12:55

Как сделать так чтобы при запуске ситемы программа загружалась сама?

Автор: dvamaster 9.9.2004, 12:58

Есть в реестре WinXP:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

Автор: DonPager 9.9.2004, 14:03

... также можно повесить прогу как сервис (опят-таки в реестре) см. HELP

Автор: Ripper 9.9.2004, 16:03

В факе есть. Пишеш в реестр... вообще вроде и в папку автощагруку мона поместить и ещё в какие либо файлы но легче в реестр

Автор: Illusion Dolphin 9.9.2004, 16:11

Код


procedure RunOnStartup(Name:string;path:string;options:integer);
var
  sKey : string;
  reg  : TRegIniFile;
begin
  if options=0 then sKey := 'Once';
  if abs(options)=1 then sKey := '';
  reg := TRegIniFile.Create( '' );
  reg.RootKey := HKEY_CURRENT_USER;
  reg.WriteString(
    'Software\Microsoft'
    + '\Windows\CurrentVersion\Run'
    + sKey + #0,
    name,
    path );
  if options=-1 then
  reg.deletekey('Software\Microsoft'
    + '\Windows\CurrentVersion\Run'
    + #0, name);
    reg.closekey;
  reg.Free;
end;

Пример использования:

Код


RunOnStartup('My program',Application.Exename,1); //зарегистрировать для запуска

Код


RunOnStartup('My program',Application.Exename,-1); //отменить регистрацию

Код


RunOnStartup('My program',Application.Exename,0); //запустить единажды

Автор: Pakshin A. S. 9.9.2004, 18:43

1) Через case обработка переменной options красивше была
2) Можно и сотворить нечто вроде вируса

, который обладал следующей характеристикой:
а) прикреплен к Win-стандартнгой программе (См. список процессов и т. п.)
б) загрузка основной программы (ту которую надо запустить при щапуске)
в) отсутствие механизма поиска новой жертвы, т. к. вирус должен быть один в системе.
На форуме технология вируса обсуждалась (кстати, я однажды задавал вопрос).

Автор: Illusion Dolphin 9.9.2004, 19:41

Цитата

Через case обработка переменной options красивше была

Не согласиться просто не могу, но надо учитывать то, что писал это года 2-3 назад, когда для меня это было чудом инженерной мысли (просто для человека откопал

)
Pakshin A. S.: А при чём тут вирус

? Сабж его не упоминает... Или так учишь молодёжь

? Если тема переростает в "Как написать вирус", то могу изложить свои наработки

Автор: decoder 9.9.2004, 19:52

на "мастерах делфи" видел статью "13 способов автозагрузки". Там ищи...
Не найдёшь - один из решений задачи описанной в статье:
Win.ini->[windows]->run->ExeName.

Автор: decoder 10.9.2004, 16:09

http://www.sources.ru/win/autorun_program_in_windows.shtml

Автор: Pakshin A. S. 11.9.2004, 22:07

Цитата(Illusion @ 9.9.2004, 20:41)

Pakshin A. S.: А при чём тут вирус ? Сабж его не упоминает... Или так учишь молодёжь ? Если тема переростает в "Как написать вирус", то могу изложить свои наработки .

Так до этого уже доходило. Мной соответственно.

Имелось ввиду, чтобы программа содилась на хвост какой-нибудь программе, которая уже есть в автозапуске самого Win'а.