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

Есть нестандартная ситуация (а мож и стандартная)   Найти похожие ветки 

← →
.::D.e.M.o.N.i.X::. ©   (2003-03-19 09:44) [0]

В Delphi для получения свободного места мона использовать DiskFree, но параметр - Byte(0-текущий,1-A,2-B и т.д.). Но у меня имя диска возвращается как Char(A,B,C,D и т.д). Как мона перевести из Char в Byte, чтобы 1 соответствовала буква A,2-B,3-C и т.д. Смотрел исходник DiskFree так там из перевода Byte в Char использовалось что-то типа
DiskByte := Char(disk + $40); где disk - A,B,C или D и т.д.
Как "обратить" этот процесс?

P.S.Вообще мона использовать и GetDiskFreeSpaceEx, но это 2 строки лишнего кода:(

---

← →
ZeroDivide ©   (2003-03-19 09:52) [1]

ORD

---

← →
han_malign ©   (2003-03-19 10:18) [2]

byte(cDisk)-$40

---

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

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



Память: 0.45 MB
Время: 0.01 c