Форум: "WinAPI";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];
Внизкак получить список дисков в системе, С ,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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.033 c