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

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

Программно узнать под какой

explorer ©   (2003-11-13 10:12:00) 

Мастера!
Подскажите, как реализовать сабж?

---

nix   (2003-11-13 22:08:00) [1]

Можно и так:
var w:dword; Root:string;
var
w:dword; Root:string;
i:integer;
begin
w:=GetLogicalDrives;
Root := "#:\";
for i := 0 to 25 do begin
Root[1] := Char(Ord("A")+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
Form1.Caption:=Root;
end;

---

pasha_golub   (2003-11-13 16:34:00) [2]

2Fibonachi
Очень актуальное уточнение! :-)))))

---

Fibonachi   (2003-11-13 16:02:00) [3]

Точнее так:
var c:Char;
begin
for c:="A" to "Z" do
if GetDriveType(PChar(c+":\")) = DRIVE_CDROM then
ShowMessage(C+" is a CD-ROM");
end;

---

explorer   (2003-11-13 10:37:00) [4]

pasha_golub ©
Спасибки! :)

---

pasha_golub   (2003-11-13 10:23:00) [5]


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


---

pasha_golub   (2003-11-13 10:21:00) [6]

Перебрать варианты и проверять тип носителя GetDriveType

---

Наверх