| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как получить список каталогов на диске? [D6]

Пубертанец ©   (2003-02-27 13:57:00) 

Как получить список каталогов на диске (в StringList или куда-нибудь еще, неважно)

---

pasha_golub   (2003-02-27 14:25:00) [1]

Прошу прощения - не внимательно прочитал вопрос :-)

Но я думаю, эта функция тоже может пригодиться...

---

pasha_golub   (2003-02-27 14:23:00) [2]

function GetDrives: string; //получить все доступные диски для системы
var
c: char;
Mask, Drives: integer;
begin
Drives := GetLogicalDrives; //kernel32.dll, возвращает битовую //маску
Mask := 1;
Result := ""; //возврат в строке, например "ACDE"
for c := "A" to "Z" do
begin
if Mask and Drives = Mask then Result := Result + c;
Mask := Mask * 2;
end;
end;

---

Clickmaker   (2003-02-27 14:00:00) [3]

var SR: TSearchRec;

if (FindFirst("c:\*.*", faDirectory, SR) = 0) then begin
repeat

List.Add(SR.Name);
until (FindNext(SR) <> 0);
FindClose(SR);
end;

---

Наверх