[pavelok]

Здраствуите!!
помогите пожалуйста начинающему зделать так чтоб программа копировала сама себя во все папки

[lmikle]

CopyFile (или FileCopy - не помнб точно) и Application.ExeName.
Из второго получаешь полное имя файла, а первое - собственно функция копирования файла.

[pavelok]

Да знаю вот
CopyFile('C:\1.txt','C:\2.txt' ,true);
Тока как зделать чтоб программа копировалась Сама во все папки которые наидёт на компе

[lmikle]

FindFirst/FindNext/FindClose - поиск файлов/папок.

[Vayrus]

Сообщение от pavelok

Да знаю вот
CopyFile('C:\1.txt','C:\2.txt' ,true);
Тока как зделать чтоб программа копировалась Сама во все папки которые наидёт на компе

Явный признак вирусописателя

[Страдалецъ]

А еще неплохо было-бы, что-бы потом она себя стерла из всех папок. Но только себя!

[Sphinx]

Сообщение от Страдалецъ

А еще неплохо было-бы, что-бы потом она себя стерла из всех папок. Но только себя!

Функция на отчистку 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 нашел его аналогичный пост

[AleD]

Люди нафига помогаете таким людям??? а потом материмся что типа вот новый вирус появился половину офисов без работы оставил! вот для чего ещё нужно самокопирование во все папки? признаюсь сам пару раз писал вирусянк, тоже был с самокопированием и попал к другу как то, дак он на меня так обиделся...

КЫШ АТСЮДА ЗАРАЗАПИСАТЕЛЬ

що эта са мной сёдня, но мысли все свои высказал!

[pavelok]

Блин! почему вы все взяли, что это ВИРУС??? это программа сбора данных приосходящем во всех папках!!!
А не вирус!!!

[PhoeniX]

Был вирус, с той разницей, что копировался не в папки, а на все устройства (C:, D:...) и пишется в авторан. Заипался его стирать. Наконец, выловил. Подцепил флехой на курсах программирования. Шваль безвредная, с компом ничё не делала, но КАК ЗАДАЛБЫВАЕТ...

По теме - проще уж тогда запустить ОДНУ прогу, и из неё мониторить папки... А то я набросал код для самокопирования, так касперский сразу заматерился...

[AleD]

Сообщение от pavelok

Блин! почему вы все взяли, что это ВИРУС??? это программа сбора данных приосходящем во всех папках!!!
А не вирус!!!

всё равно, если во все ваще папки, то задалбывает, нехотел бы такую прогу иметь! и я чота непойму, нафига копировать то себя что бы посмотреть что в папках???

[}{aker]

Вот, как скопировать себя.

CopyFile(pchar(ParamStr(0)),pchar('C:\'+ExtractFil eName(ParamStr(0))),true);

Че не ясно, пиши на donetskrus@mail.ru

[AleD]

тут уже был один умник... скажите как сделать прогу что бы её видно небыло... это не вирус!.. скажите как комп подвиснуть! это не вирус!..скажите как поменять разришение чтобы монитор погас... это не вирус!..
знаем мы таких нафиг!!!

[Страдалецъ]

Сообщение от pavelok

Блин! почему вы все взяли, что это ВИРУС??? это программа сбора данных приосходящем во всех папках!!!
А не вирус!!!

Абсолютно бредовая идея. Она у вас, что будет запускаться всякий раз как пользователь или системный процесс обратились к папке? Так у вас машина сдохнет через 5 минут после запуска 5000 копий из каждой папки. А на современных дисках этих директорий десятки тысяч. Добавьте к этому некислую потерю места на каждую такую копию.
Единственный способ придать этой операции какой-то смысл, это копировать не саму программу, а делать символическую ссылку, но эта штука работает только под NTFS.

[Sphinx]

Сообщение от AleD

тут уже был один умник... скажите как сделать прогу что бы её видно небыло... это не вирус!.. скажите как комп подвиснуть! это не вирус!..скажите как поменять разришение чтобы монитор погас... это не вирус!..
знаем мы таких нафиг!!!

Гы! Хотя все давно есть в литературе =) Сенсей Фленов со своей книгой программирование в Дельфи глазами ][акера... там и про моник... и как чтобы видно не было... да и дельфи ворд открой там куча примеров... чет я проговорился

З.Ы. Не-не-не вирусов не писал ) Максимум на работе писанул программу- прикол (клиент-серверку) которая всякую фигню творила сотруднику безопасности (просто его все в офисе любили очень)... а так я протиф вирусов =) На кол всех! Особенно антивирусные компании, всё- таки я согласен с мнением, что немалое количество пишется именно ими, чтоб было чем хлеб мазать =)