![]() |
|
|
Регистрация | << Правила форума >> | 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
|
|||
|
|||
![]() Цитата:
во-первых: я не малолетний хакер во-вторых: это не вредоносная прога, эта прога для использования только на своей машине... |