Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Вниз

как узнать CD ROM?   Найти похожие ветки 

← →
ss300   (2003-06-23 07:28) [0]

привет знатоки!
как узнать имя диска CD. D или E или F ? и мне надо присвоить значение в стринговую переменную.
Заранее спс.

---

← →
Спрашивающий_   (2003-06-23 08:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Drive: Char;
begin
for Drive := "A" to "Z" do
begin
If GetDriveType(PChar(Drive + ":/")) = DRIVE_CDROM Then Text:=Drive;
end;
end;

---

← →
Юрий Зотов   (2003-06-23 08:03) [2]

> ss300 © (23.06.03 07:28)

Но их может быть и несколько...

---

← →
ss300   (2003-06-23 08:49) [3]

круто Спрашивающий, работает.

---

← →
Song   (2003-06-23 08:53) [4]

Да ну? o-)

---

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

Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.017 c