Текущий архив: 2003.04.17;
Скачать: CL | DM;

Вниз

Как получить список каталогов на диске?   Найти похожие ветки 

← →
Пубертанец   (2003-02-27 13:57) [0]

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

---

← →
Clickmaker ©   (2003-02-27 14:00) [1]

var SR: TSearchRec;

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

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

---

← →
pasha_golub ©   (2003-02-27 14:23) [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;

---

← →
pasha_golub ©   (2003-02-27 14:25) [3]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c