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

Вниз

Список логических дисков   Найти похожие ветки 

← →
Елена ©   (2002-08-12 06:38) [0]

Как получить список логических дисков? Заранее благодарна.

---

← →
Poirot ©   (2002-08-12 06:44) [1]

GetDriveType + F1...

---

← →
Ученик ©   (2002-08-12 07:07) [2]

GetLogicalDrives, GetLogicalDriveStrings

---

← →
Viktor Kushnir ©   (2002-08-12 08:15) [3]

Вот кусочек из соей программы

Integer(DriveBits) := GetLogicalDrives;
for DriveNum := 0 to 25 do
begin
if not (DriveNum in DriveBits) then Continue;
DriveChar := Char(DriveNum + Ord("a"));
DriveType := TDriveType(GetDriveType(PChar(DriveChar + ":\")));
DriveChar := Upcase(DriveChar);
case DriveType of
dtFixed: Caption := VolumeID(DriveChar) + " ("+DriveChar + ":)";
dtNetwork: Caption := NetworkVolume(DriveChar) + " ("+DriveChar + ":)";
dtCDROM: Caption := VolumeID(DriveChar) + " ("+DriveChar + ":)";
dtRAM: Caption := VolumeID(DriveChar) + " ("+DriveChar + ":)";
end;
If (DriveType = dtFloppy) and ((DriveChar = "A") or (DriveChar = "B")) Then
Caption := "Гибкий диск ("+DriveChar + ":)";
If (DriveType = dtFloppy) and not ((DriveChar = "A") or (DriveChar = "B")) Then
Caption := "Сменный диск ("+DriveChar + ":)";

// Здесь делаешь с найденным диском что нужно, например добавляешь ешго в список.
end;

---

← →
Елена ©   (2002-08-15 11:56) [4]

Спасибо!

---

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

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

Наверх

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