как получить список дисков в системе, С ,D и т.д. скоко их там ес

← →
Term © (2004-06-02 10:17) [0]

Собственно сабжжжж

← →
pasha_golub © (2004-06-02 10:18) [1]

RTFM

← →
pasha_golub © (2004-06-02 10:19) [2]

Дарю
function GetDrives: string; //получить все доступные диски для системы var c: char; Mask, Drives: integer; begin Drives := GetLogicalDrives; Mask := 1; Result := ""; for c := "A" to "Z" do begin if Mask and Drives = Mask then Result := Result + c; Mask := Mask * 2; end; end; function DriveLetterToIndex(const ALetter: char):byte; begin Result := ord(Aletter) - 64; end;

← →
pasha_golub © (2004-06-02 10:20) [3]

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

← →
Anatoly Podgoretsky © (2004-06-02 10:24) [4]

pasha_golub © (02.06.04 10:20) [3]
Не волнуйся, оптимизатор не настолько плох, чтобы не заменить умножение сдвигом.

← →
Term © (2004-06-02 10:26) [5]

СПАСИБО!!!!

← →
Тимохов © (2004-06-02 10:26) [6]

> pasha_golub © (02.06.04 10:20) [3]

у дельфи мозгов хватит на такую кулхацкую фишку...

← →
grom (2004-06-02 10:35) [7]

http://delphibase.endimus.ru/?action=viewfunc&topic=harddisk&id=10137

> ЗЫ А если {$O-}?

значит руки надо отрывать...

Тимохов © (02.06.04 10:38) [9]

Ну, не правда ваша. Например, на олимпиадах по программированию оптимизацию отключают. Да мало ли случаев?

Вот вроде {$B-/+}, тоже все понятно, чего его дергать? А ведь нет - бывают же необходимости. :-)

как получить список дисков в системе, С ,D и т.д. скоко их там ес Найти похожие ветки