| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Список логических дисков [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
Елена © (2002-08-12 06:38:00)Как получить список логических дисков? Заранее благодарна.
Елена (2002-08-15 11:56:00) [1]Спасибо!
Viktor Kushnir (2002-08-12 08:15:00) [2]Вот кусочек из соей программы
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-12 07:07:00) [3]GetLogicalDrives, GetLogicalDriveStrings
Poirot (2002-08-12 06:44:00) [4]GetDriveType + F1...
| |
