|
|
Регистрация | << Правила форума >> | 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 нашел его аналогичный пост |