[PhoeniX]

Сообщение от Der_G()RuNu(h

если эти файлы удалить - система слетит?
как тогда сделать кнопку "Удалить" системные файлы?

Чуете подвох, братцы программисты? Ой не к добру это....

[Bargest]

Почему не помогают? Да хотя бы потому, что обсуждение вредоносных программ запрещено (читаем правила форума).
На самом деле все необходимое тебе уже дали. Дальше обычный пробег по гуглу скажет че делать. Или логика. Или вместе.
Но лучше бы занялся полезным делом.

[NumLock]

Сообщение от Der_G()RuNu(h

вместо того, чтобы задавать подобные вопросы лучше бы делом помогли...

никто помогать, имхо, не будет - все ждут когда тему закроют)))

[Der_G()RuNu(h]

написал этот код, чтобы искать файлы в папках:

Код:

if FindFirst('*',faAnyFile,Searchrec)=0 then
    if Searchrec.Name[i]<>'.' then
      begin
        MainForm.Memo1.Lines.Add('>>>>'+Searchrec.Name);
        ChDir(Searchrec.Name);//âîéòè â ïàïêó
        Find;
        ChDir('..');//âûéòè èç ïàïêè
        MainForm.Memo1.Lines.Add('<<<<'+Searchrec.Name);
      end;
    until FindMext(Seachrec)<>0;

но делфи ругается перед "until", в чем причина?

[AlexSku]

Перед until должен быть repeat (цикл)

[Der_G()RuNu(h]

такс... это все получилось... в папках теперь прога ищет, но теперь вопрос в другом:



она происходит тогда, когда файлы находятся, в МЭМО отображаются и во время поиска выскакивает эта табличка.

В чем причина?

[NumLock]

Сообщение от Der_G()RuNu(h

В чем причина?

ну там же написано: "File access denied".

[Der_G()RuNu(h]

как этот файл обойти?
вот я о чем?
чтобы каждый раз при поиске такая ошибка не возникала?

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

Что-бы не получать подобные сообщения люди придумали обработку ошибок. Например функция IOResult позволяет обработать ошибки ввода/вывода. А скажем специальная команда {$I-} компилятору позволяет обработать корректно эти ошибки. Есть еще более продвинутое средство:
try ... except ... end
ПС: У вас вообще встроенной справки по Delphi нет на компе?

[Der_G()RuNu(h]

спасибо

[Der_G()RuNu(h]

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

Что-бы не получать подобные сообщения люди придумали обработку ошибок. Например функция IOResult позволяет обработать ошибки ввода/вывода. А скажем специальная команда {$I-} компилятору позволяет обработать корректно эти ошибки. Есть еще более продвинутое средство:
try ... except ... end

вариант, кстати, не помог...

есть ещё предложения?

[Pyro]

давай код процедуры

[Der_G()RuNu(h]

Код:

  if FindFirst(FileName, faAnyFile, SearchRec)=0 then
    repeat
    if (SearchRec.Attr and faAnyFile)=SearchRec.Attr then
      begin
        Writeln(ff,Path+SearchRec.Name);//что записываем
      end;
      Error:= FindNext(SearchRec);
  until Error <>0;
  //обработка подкаталогов текущего каталога
  if FindFirst('*', faAnyFile, SearchRec)=0 then
    repeat
      if (SearchRec.Attr and faDirectory)=faDirectory then
        if SearchRec.Name[1]<>'.' then
          begin
            //MainForm.Memo1.Lines.Add('>>>>'+SearchRec.Name);
            ChDir(SearchRec.Name);//войти в каталог
            Find;//поиск
            ChDir('..');//выйти изх каталога
            //MainForm.Memo1.Lines.Add('<<<<'+SearchRec.Name);
          end;
  until FindNext(Searchrec)<>0;

ошибка появляется при команде "войти в каталог".
File access denied

[Konrad]

Так-с...
Читаем правила форума.

Да и вообще - всегда раздражают малолетние хакиры которые ничего не зная, хотят написать вредоносные проги.

[Der_G()RuNu(h]

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

Так-с...
Читаем правила форума.

Да и вообще - всегда раздражают малолетние хакиры которые ничего не зная, хотят написать вредоносные проги.

ну...
во-первых:
я не малолетний хакер
во-вторых:
это не вредоносная прога, эта прога для использования только на своей машине...