Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.03;
Скачать: CL | DM;

Вниз

как узнать 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-7628
TuZ
2003-06-18 21:11
2003.07.03
Как сделать сервис для 2К или НТ?


14-7725
Knight
2003-06-16 21:57
2003.07.03
ПОРЯДОК... ПРОГРЕСС...


1-7416
Yurique
2003-06-23 09:31
2003.07.03
Фокус ввода в TListBox


1-7420
antoniz
2003-06-23 11:19
2003.07.03
Может, кто знает как связать книгу Excel с IPersistStream


1-7406
LinOS
2003-06-23 06:33
2003.07.03
В ListBox хочу выделять Item правой кнопкой мыши.