Форум: "Система";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизCD-ROM Найти похожие ветки
← →
VR (2003-04-05 04:18) [0]Помогите, пожалуйста, разобраться с такой проблемой: необходимо, чтобы программа, написанная на Delphi распозновала все приводы CD-ROM, которые есть на компьютере и затем определяла серийный номер диска, который стоит в одном из этих приводов! В крайнем слачае можно чтобы программа определяла не серийник диска, а его метку!
Заранее благодарен!
bsk2000@mail.ru
← →
Deedlit (2003-04-05 06:13) [1]Для начала попробуй так:
var
Drives: set of 0..25;
Drv: Char;
i: integer;
begin
Integer(Drives):=GetLogicalDrives;
For i := 0 to 25 do
If (i in Drives) then begin
Drv:=Char(i + Ord("A"));
//тип девайса узнаем по GetDriveType
end;
end;
Вроде, работает. ;)
← →
cyborg (2003-04-05 15:16) [2]http://delphibase.endimus.com/?action=viewfunc&topic=harddisk&id=10139
← →
VR (2003-04-05 15:30) [3]2Deedlit:
Я сдел всё так, как ты написал:
var
drives: set of 0..25;
drv: char;
i: integer;
begin
integer(drives) := GetLogicalDrives;
for i := 0 to 25 do
If (i in Drives) then
begin
Drv := Char(i + Ord("A"));
combobox1.Items.Add(drv);
end;
end;
как теперь сделать, чтобы в Combobox1 были не имена всех дисков, а имена только CD-ROMов?
← →
VR (2003-04-05 15:31) [4]2cyborg: Спасибо!
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c