[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 нашел его аналогичный пост