[Помогите!] Помогите с Delphi 7

[Vasilisk98]

Здравствуйте , нужна ваша помощь .

Вообщем ,объясните дураку как исправить этот код

Цитата: procedure TForm1.btn1Click(Sender: TObject); var sr:TSearchRec; Result:word; begin ChDir('C:/'); Result := FindFirst ('*.JPG',faAnyFile,sr); Lst1.Clear; While result=0 do Begin Result:=FindNext (sr); Lst1.Items.add(sr.name); End; end; end.

Что бы программа сканировала весь диск "C" (Включая под каталоги и скрытые файлы ) и выводила найденные файлы ListBox !

[артём612]

While result <> 0

Так же можно юзать функции винапи findfirstfile и findnextfile...


Так же вот привер использования функции [Ссылки могут видеть только зарегистрированные пользователи. ]