Скачать: CL | DM;

как получить список дисков в системе, С ,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

---

← →
pasha_golub ©   (2004-06-02 10:36) [8]

Anatoly Podgoretsky ©   (02.06.04 10:24) [4]
Тимохов ©   (02.06.04 10:26) [6]

Ой, спасибо, успокоили! ;-)

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

---

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

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


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

---

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

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

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

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

---

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

Скачать: CL | DM;



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