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