|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Копирование программы самой себя
Здраствуите!!
помогите пожалуйста начинающему зделать так чтоб программа копировала сама себя во все папки |
#2
|
|||
|
|||
CopyFile (или FileCopy - не помнб точно) и Application.ExeName.
Из второго получаешь полное имя файла, а первое - собственно функция копирования файла. |
#3
|
|||
|
|||
Да знаю вот
CopyFile('C:\1.txt','C:\2.txt' ,true); Тока как зделать чтоб программа копировалась Сама во все папки которые наидёт на компе |
#4
|
|||
|
|||
FindFirst/FindNext/FindClose - поиск файлов/папок.
|
#5
|
||||
|
||||
Цитата:
Явный признак вирусописателя |
#6
|
||||
|
||||
А еще неплохо было-бы, что-бы потом она себя стерла из всех папок. Но только себя!
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#7
|
||||
|
||||
Цитата:
Функция на отчистку name.exe Код:
function Kill(Dir: AnsiString): boolean; var Sr: SysUtils.TSearchRec; begin {$I-} if (Dir <> '') and (Dir[length(Dir)] = '\') then Delete(Dir, length(dir), 1); if FindFirst(Dir + '\*.*', faDirectory + faHidden + faSysFile + faReadonly + faArchive, Sr) = 0 then repeat if (Sr.Name = '.') or (Sr.Name = '..') then continue; if (Sr.Attr and faDirectory <> faDirectory) then begin if (AnsiLowerCase(ExtractFileExt(sr.Name)) = 'name.Exe') then begin FileSetReadOnly(Dir + '\' + sr.Name, False); DeleteFile(Dir + '\' + sr.Name); end end else Kill(Dir + '\' + sr.Name); until FindNext(sr) <> 0; FindClose(sr); Kill:= (FileGetAttr(Dir) = -1); end; З.Ы. парень и правда что-то недоброе задумал, на programmersforum.ru нашел его аналогичный пост |
#8
|
||||
|
||||
Люди нафига помогаете таким людям??? а потом материмся что типа вот новый вирус появился половину офисов без работы оставил! вот для чего ещё нужно самокопирование во все папки? признаюсь сам пару раз писал вирусянк, тоже был с самокопированием и попал к другу как то, дак он на меня так обиделся...
КЫШ АТСЮДА ЗАРАЗАПИСАТЕЛЬ що эта са мной сёдня, но мысли все свои высказал!
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#9
|
|||
|
|||
Блин! почему вы все взяли, что это ВИРУС??? это программа сбора данных приосходящем во всех папках!!!
А не вирус!!! |
#10
|
||||
|
||||
Был вирус, с той разницей, что копировался не в папки, а на все устройства (C:, D:...) и пишется в авторан. Заипался его стирать. Наконец, выловил. Подцепил флехой на курсах программирования. Шваль безвредная, с компом ничё не делала, но КАК ЗАДАЛБЫВАЕТ...
По теме - проще уж тогда запустить ОДНУ прогу, и из неё мониторить папки... А то я набросал код для самокопирования, так касперский сразу заматерился... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#11
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#12
|
||||
|
||||
Вот, как скопировать себя.
CopyFile(pchar(ParamStr(0)),pchar('C:\'+ExtractFil eName(ParamStr(0))),true); Че не ясно, пиши на donetskrus@mail.ru |
#13
|
||||
|
||||
тут уже был один умник... скажите как сделать прогу что бы её видно небыло... это не вирус!.. скажите как комп подвиснуть! это не вирус!..скажите как поменять разришение чтобы монитор погас... это не вирус!..
знаем мы таких нафиг!!! TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#14
|
||||
|
||||
Цитата:
Абсолютно бредовая идея. Она у вас, что будет запускаться всякий раз как пользователь или системный процесс обратились к папке? Так у вас машина сдохнет через 5 минут после запуска 5000 копий из каждой папки. А на современных дисках этих директорий десятки тысяч. Добавьте к этому некислую потерю места на каждую такую копию. Единственный способ придать этой операции какой-то смысл, это копировать не саму программу, а делать символическую ссылку, но эта штука работает только под NTFS. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#15
|
||||
|
||||
Цитата:
З.Ы. Не-не-не вирусов не писал ) Максимум на работе писанул программу- прикол (клиент-серверку) которая всякую фигню творила сотруднику безопасности (просто его все в офисе любили очень)... а так я протиф вирусов =) На кол всех! Особенно антивирусные компании, всё- таки я согласен с мнением, что немалое количество пишется именно ими, чтоб было чем хлеб мазать =) |