АНТИЧИТ

[vizor9]

Здравствуйте!
У меня такая просьба, помогите написать простенький античит!!!!
Чтоб он отыскивал файлы на любом жестком диске(которые надо указать в коде),затем их удалял.
ПОМОГИТЕ МНЕ А ТО ЧИТЕРЫ ЗАПАРИЛИ!!!!!!!!!

[zetrix]

Ты админ комп. клуба, я угадал? )

По поводу поиска файлов на HDD уже писали, пользуйтесь поиском

[SkyM@n]

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

Здравствуйте!
У меня такая просьба, помогите написать простенький античит!!!!
Чтоб он отыскивал файлы на любом жестком диске(которые надо указать в коде),затем их удалял.
ПОМОГИТЕ МНЕ А ТО ЧИТЕРЫ ЗАПАРИЛИ!!!!!!!!!

Что вы уже пробовали в решении вашей проблемы и что не получается?

[vizor9]

Ну помогите мне найти эту ссылку!!!!
только чтоб было сделанно на делфи и с исходником!!

[SkyM@n]

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

Ну помогите мне найти эту ссылку!!!!
только чтоб было сделанно на делфи и с исходником!!

Вы так и не ответили на мой вопрос. Что именно вы сделали, чтоб помочь своей проблеме? Если искали, то где? Если писали код, то в каком месте не выходит?

[vizor9]

Я ничего не писал и не где не искал., я думал мне на форуме помогут!!

[SkyM@n]

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

Я ничего не писал и не где не искал., я думал мне на форуме помогут!!

То есть - сделают бесплатно все за вас? Вы даже поискать поленились?! Как вы думаете, не поленятся ли вам что-то писать?

[Virtson]

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

Здравствуйте!
У меня такая просьба, помогите написать простенький античит!!!!
Чтоб он отыскивал файлы на любом жестком диске(которые надо указать в коде),затем их удалял.
ПОМОГИТЕ МНЕ А ТО ЧИТЕРЫ ЗАПАРИЛИ!!!!!!!!!

и что удалял - все подряд ?
не такая простая задача. коли описать не можете суть %)

[execom]

С поправкой на то что до конца я не понел что делать... привожу пример того что понял, а имено поиск всех файлов на всех дисках (c):

Program FindAllFilesAllDisks;
uses
  SysUtils,
  Windows;
procedure FindFile(Dir:String);
var
   SR : TSearchRec;
   FR : Integer;
   RN : string;
begin
 FR:=FindFirst(Dir+'*.*',faAnyFile,SR);  
 while FR=0 do
  begin
  Randomize;
   if ((SR.Attr and faDirectory)=faDirectory) and
   ((SR.Name='.')or(SR.Name='..')) then
     begin
        FR:=FindNext(SR);  
        Continue;  
     end;
    if ((SR.Attr and faDirectory)=faDirectory) then
     begin
       FindFile(Dir+SR.Name+'\');  
       FR:=FindNext(SR);  
       Continue;   
     end;
//////////////Ваше действие при нахождении файла
   FR:=FindNext(SR);   
  end;
 SysUtils.FindClose(SR);  
end;
var
  i : integer;
 ii : integer;
 st : string;
begin
st:=''; 
  for i:=67 to 90 do 
      begin
      ii:=GetDriveType(PChar(chr(ord(i))+':\'));
      if  (ii<>0)
      and (ii<>2)
      and (ii<>5)
      and (ii<>1)
      then FindFile(chr(ord(i))+':\');
    end;
end.

Кстати этот код многие ищут.. и не всегда могут найти толковый вариант... Ну а дальше я так понял вам нужно каждый файл проверить на наличие определённой заданной строки и если она есь то НАХ??? Так же?... Если так то могу щаз заделать...

[Alar]

execom,
http://www.programmersclub.ru/labfile

Поиск файла

Delphi - реализация поиска. Находит все файлы, пользователь указывает папку, имя или маску для поиска.
Скачать (8 кб)