Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Criptonik © (2011-05-22 13:50:00)
Как вывести все системные которые есть на флешке
пробывал
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;
но почему то выводятся все файлы

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

> Sha © (22.05.11 23:11) [12]
Лет эдак надцать назад...
- Подайте силь
- Не силь а сол! чурка неруская...

Sha (2011-05-22 23:11:00) [2]
> пробывал

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

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

MBo (2011-05-22 20:35:00) [4]
Попытайся понять, что делают эти строчки?

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

Германн (2011-05-22 20:15:00) [5]

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

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

Criptonik (2011-05-22 20:07:00) [6]

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

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

Criptonik (2011-05-22 20:01:00) [7]
ну по идее должны выводится только папки

clickmaker (2011-05-22 18:32:00) [8]
> всеравно выводятся все файлы

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

Palladin (2011-05-22 18:14:00) [9]
то есть ты нихрена не понял, что пример тебе дали для примера, и что в примере не системные, а директории? ппц просто

Criptonik (2011-05-22 18:08:00) [10]
сделал как в примере но всеравно выводятся все файлы, что делать
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;

MBo (2011-05-22 17:02:00) [11]
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=838

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

Criptonik (2011-05-22 14:59:00) [12]
а как это сделать

MBo (2011-05-22 14:41:00) [13]
второй аргумент findfirst - атрибуты, которые нужно искать в дополнениек обычным.
Так что каждый найденный файл нужно проверять на faSysFile

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »