|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#32
|
||||
|
||||
Почему не помогают? Да хотя бы потому, что обсуждение вредоносных программ запрещено (читаем правила форума).
На самом деле все необходимое тебе уже дали. Дальше обычный пробег по гуглу скажет че делать. Или логика. Или вместе. Но лучше бы занялся полезным делом. jmp $ ; Happy End! The Cake Is A Lie. |
#33
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#34
|
|||
|
|||
написал этот код, чтобы искать файлы в папках:
Код:
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", в чем причина? |
#35
|
|||
|
|||
Перед until должен быть repeat (цикл)
|
#36
|
|||
|
|||
такс... это все получилось... в папках теперь прога ищет, но теперь вопрос в другом:
она происходит тогда, когда файлы находятся, в МЭМО отображаются и во время поиска выскакивает эта табличка. В чем причина? |
#37
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#38
|
|||
|
|||
как этот файл обойти?
вот я о чем? чтобы каждый раз при поиске такая ошибка не возникала? |
#39
|
||||
|
||||
Что-бы не получать подобные сообщения люди придумали обработку ошибок. Например функция IOResult позволяет обработать ошибки ввода/вывода. А скажем специальная команда {$I-} компилятору позволяет обработать корректно эти ошибки. Есть еще более продвинутое средство:
try ... except ... end ПС: У вас вообще встроенной справки по Delphi нет на компе? Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#40
|
|||
|
|||
спасибо
|
#41
|
|||
|
|||
Цитата:
есть ещё предложения? |
#42
|
|||
|
|||
давай код процедуры
|
#43
|
|||
|
|||
Код:
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 |
#44
|
||||
|
||||
Так-с...
Читаем правила форума. Да и вообще - всегда раздражают малолетние хакиры которые ничего не зная, хотят написать вредоносные проги. |
#45
|
|||
|
|||
Цитата:
во-первых: я не малолетний хакер во-вторых: это не вредоносная прога, эта прога для использования только на своей машине... |