Вывод системных файлов

← →
Criptonik © (2011-05-22 13:50) [0]

Как вывести все системные которые есть на флешке
пробывал
file_dir := combobox1.text+"*.*";
if FindFirst(file_dir, faSysFile, sr) = 0 then
begin
i:=1;
repeat
files[i]:=sr.Name;
with StringGrid1 do
begin
Cells[1,i] := files[i];
if RowCount = i then
RowCount := RowCount + 1;
end;
inc(i);
until FindNext(sr) <> 0;
FindClose(sr);
end;
но почему то выводятся все файлы

← →
MBo © (2011-05-22 14:41) [1]

второй аргумент findfirst - атрибуты, которые нужно искать в дополнение к обычным.
Так что каждый найденный файл нужно проверять на faSysFile

← →
Criptonik © (2011-05-22 14:59) [2]

а как это сделать

← →
MBo © (2011-05-22 17:02) [3]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=838

(там проверка на папки, но это непринципиально)

← →
Criptonik © (2011-05-22 18:08) [4]

сделал как в примере но всеравно выводятся все файлы, что делать
var SearchRec : TSearchRec; StartDir: string; Mask:string; List:TStrings; begin Startdir:="G:\"; Mask := "*.*"; if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\"; if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then begin repeat Application.ProcessMessages; if (SearchRec.Attr and faDirectory) <> faDirectory then Listbox1.Items.Add(StartDir + SearchRec.Name) else if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then begin Listbox1.Items.Add(StartDir + SearchRec.Name + "\"); end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end;

← →
Palladin © (2011-05-22 18:14) [5]

то есть ты нихрена не понял, что пример тебе дали для примера, и что в примере не системные, а директории? ппц просто

← →
clickmaker © (2011-05-22 18:32) [6]

> всеравно выводятся все файлы

ну прально, а чего ты ждал? ты ж не фильтруешь их по атрибутам

← →
Criptonik © (2011-05-22 20:01) [7]

ну по идее должны выводится только папки

← →
Criptonik © (2011-05-22 20:07) [8]

> Palladin © (22.05.11 18:14) [5]
> то есть ты нихрена не понял, что пример тебе дали для примера,
> и что в примере не системные, а директории? ппц просто

Я это понял, там всего лишь надо заменить fadirwctorw на faSysFile но суть втом что в примере где л=должны выводится только папки выводятся все файлы

← →
Германн © (2011-05-22 20:15) [9]

> но суть втом что в примере где л=должны выводится только
> папки выводятся все файлы

Посмотри еще раз на этот пример.

Попытайся понять, что делают эти строчки?

if (SearchRec.Attr and faDirectory) <> faDirectory
then
Listbox1.Items.Add(StartDir + SearchRec.Name)

> что в примере где л=должны выводится только папки выводятся все файлы
не должны, в этом ([4]) примере выводится все подряд. за 2-мя исключениями.

> пробывал

Программист набирает инструкцию: "... и выводится на печатыющее устройство".
- Тут опечатка в слове "печатыющее".
- А как надо?
- Печатующее.

← →
знайка (2011-05-23 00:25) [13]

Вывод системных файлов Найти похожие ветки