самокопирование в автозапуск, как реализовать?

[needhelp]

есть исходники, нужно добавить строку самокопирования в папку ...\Start Menu\Programs\Startup\ того аккаунта с которого вошел юзер в винду, то есть если он вошел под All Users то файл кпируется в C:\Documents and Settings\All Users\Start Menu\Programs\Startup\ и т.д. как это сделать?

[ViktorXP]

Это на вирус смахивает. А чтобы писать вирус нужно хоть мнемного уметь программировать.
пс. состороны это похожу "я хакер но помогите мне вот этот вот компъютер сломать". ИМХО.

пс.пс. вопрос к модерам: а тут вабще можна обсуждать хакинг/крекинг?

[needhelp]

Сообщение от ViktorXP

Это на вирус смахивает. А чтобы писать вирус нужно хоть мнемного уметь программировать.
пс. состороны это похожу "я хакер но помогите мне вот этот вот компъютер сломать". ИМХО.

пс.пс. вопрос к модерам: а тут вабще можна обсуждать хакинг/крекинг?

ты откуда такой умный вылез??
бедняга, я вижу ты на жизнь обижен, это все дела хакеров??
а вообще слух сюда , ты можешь привести пример того чего я попросил? нет?! тогда иди лесом дружище да?! ну давай смышленый помогай людям коль ты такой умный.

[needhelp]

у меня 100 компов и на всех разные профайлы хочется автоматизировать данную задачу... только вот не надо сразу меня за хацкера принимать...

[ViktorXP]

а вот это ты зря. я хакеров уважаю. (хотя помогаю НЕ начинающим ибо интереснее)
интерсно только кто тебя к компам допустил. (есть некоторые ошибки что ты зделал в описании того что ты хочеш зделать, что говорит о том что ты с компами не совсем на ты, скорее на вы... хотя могу и ошибатся...)
Практики тебе бы побольше и гонору поменьше...

пс. в DelphWorld6 есть не одна статья как создавать ЯРЛЫКИ в нужной тебе директории (а не копировать программу)

[ViktorXP]

у меня 100 компов и на всех разные профайлы хочется автоматизировать данную задачу...

а ты про такую вещь как реестр слышал? если да то может еще слышал о предназначении веток?... если нет то советую изучить. в момент зделает то что тебе нужно и без никаких копирований. + можно как всем пользователям создать так и каждому по оддельности (и даже если ты зашол под чюжой учеткой можно получить доступ к веткам предназначеным для других учеток)

[Altera]

Ладно, хватит вам!
Следующий код ставит/убирает (в зависимосте от первого параметра) Текущую программу. Имя прогрммы - второй параметор.

procedure setAutoStart(const value: boolean; name: string);
var
regFile: tRegIniFile;
begin
   regFile := tRegIniFile.Create('software\microsoft\windows\currentversion');
   if value then
     regFile.writeString('run', name, application.ExeName)
   else
   begin
      regFile.OpenKey('run', true);
      regFile.DeleteValue(name);
   end;
   regFile.Free;
end;

з.ы. Хороший вирус не в автозагрузку содится, а к кокому-нить процессу лепится, например к winLogon или хотя-бы к дырявому Explorer-у

[[koyot]]

Сообщение от Altera

Ладно, хватит вам!
Следующий код ставит/убирает (в зависимосте от первого параметра) Текущую программу. Имя прогрммы - второй параметор.

procedure setAutoStart(const value: boolean; name: string);
var
regFile: tRegIniFile;
begin
   regFile := tRegIniFile.Create('software\microsoft\windows\currentversion');
   if value then
     regFile.writeString('run', name, application.ExeName)
   else
   begin
      regFile.OpenKey('run', true);
      regFile.DeleteValue(name);
   end;
   regFile.Free;
end;

з.ы. Хороший вирус не в автозагрузку содится, а к кокому-нить процессу лепится, например к winLogon или хотя-бы к дырявому Explorer-у

а ты не могбы в личку написать как прогу прилепить к процессу? про дыры в explorere читал но разобраться так руки чото и не дошли

[needhelp]

Сообщение от Altera

Ладно, хватит вам!
Следующий код ставит/убирает (в зависимосте от первого параметра) Текущую программу. Имя прогрммы - второй параметор.

procedure setAutoStart(const value: boolean; name: string);
var
regFile: tRegIniFile;
begin
   regFile := tRegIniFile.Create('software\microsoft\windows\currentversion');
   if value then
     regFile.writeString('run', name, application.ExeName)
   else
   begin
      regFile.OpenKey('run', true);
      regFile.DeleteValue(name);
   end;
   regFile.Free;
end;

з.ы. Хороший вирус не в автозагрузку содится, а к кокому-нить процессу лепится, например к winLogon или хотя-бы к дырявому Explorer-у

спасибо, мне тоже в личку плиз )

[Altera]

Хороший вирус не в автозагрузку содится, а к кокому-нить процессу лепится, например к winLogon или хотя-бы к дырявому Explorer-у

Я сам не знаю, как это провернуть.