Цитата:
Сообщение от Страдалецъ
А еще неплохо было-бы, что-бы потом она себя стерла из всех папок. Но только себя!
|
Функция на отчистку 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 нашел его аналогичный пост