Vasilisk98
22.10.2013, 16:25
Здравствуйте , нужна ваша помощь .
Вообщем ,объясните дураку как исправить этот код
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 !
Вообщем ,объясните дураку как исправить этот код
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 !