| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список СД-РОМов

_8989 ©   (2003-11-19 15:13:00) 

Как получить список CD-ROM"ов без двоеточия и косой черты (C:\). Нужно получить только букву.

---

Kinder   (2003-11-20 16:04:00) [1]

procedure GetCDROMDrives(list: TStrings);
var
DriveBits: set of 0..25;
Drives,DriveNum: integer;
DriveLetter: string;
begin
list.Clear;
Drives := GetLogicalDrives;
if Drives <> 0 then
begin
integer(DriveBits) := Drives;
for DriveNum := 0 to 25 do
begin
if (DriveNum in DriveBits) then
begin
DriveLetter := char(DriveNum+Ord("A"))+":";
if GetDriveType(PChar(DriveLetter)) = DRIVE_CDROM then
list.Add(DriveLetter);
end;
end;
end;
end;

---

pasha_golub   (2003-11-19 18:49:00) [2]

var c:char;
begin
for c:="A" to "Z" do
if GetDriveType(c+":\") = DRIVE_CDROM then
ShowMesage("Мать моя женщина, под буквой "+C+" сидюк");
end;

---

DillerXX   (2003-11-19 15:17:00) [3]

Ну получи сначала с чертой а потом Delete(CDName,1,2) если не ошибся...

---

Наверх