Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/14: Рейтинг темы: голосов - 14, средняя оценка - 4.64
MoZoHoKo
0 / 0 / 0
Регистрация: 18.03.2007
Сообщений: 4
1

Работа с cdrom

25.03.2007, 01:17. Просмотров 2500. Ответов 5
Метки нет (Все метки)

объясните плиз как работать с cdrom в windows
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2007, 01:17
Ответы с готовыми решениями:

Копирование программы папку или на cdrom
Можно ли сделать в Delphi7 программу чтоб при работе она сама себя копировала...

Лабораторная работа №5. Работа с файлами и алгоритмы сортировки
1. Написать функцию Load для считывания из текстового файла (например,...

mount /dev/cdrom /mnt/cdrom
mount /dev/cdrom /media/cdrom mount: block device /dev/sr0 is...

бегающий CDROM
Хочу сделать, чтоб при нажатии нажатии на кнопку лоток сдрума начал...

CDROM не записывает диски
Здравствуйте, возникла проблема CDROM(Optiarc DVD RW AD-5170A) перестал...

5
MoZoHoKo
0 / 0 / 0
Регистрация: 18.03.2007
Сообщений: 4
25.03.2007, 15:21  [ТС] 2
Люди ктонеть
0
Vourhey
Почетный модератор
6493 / 2268 / 185
Регистрация: 29.07.2006
Сообщений: 12,534
26.03.2007, 04:31 3
А что именно требуется? Есть функция такая mciSendString...
0
Стас
0 / 0 / 0
Регистрация: 25.01.2008
Сообщений: 82
25.01.2008, 11:41 4
А что именно нужно,открывать - закрывать седиром?
0
Vovan-VE
13161 / 6546 / 1038
Регистрация: 10.01.2008
Сообщений: 15,070
25.01.2008, 18:55 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure EjectCDROM(aLetter:char);
const AliasName = 'MyCoolCdrom';
var s:string;
begin
    s := 'open ' + aLetter + ': type cdaudio alias ' + AliasName+aLetter + ' shareable wait';
    if mciSendString(PChar(s), nil, 0, 0) <> 0 then exit;  // fails to open
    try
        s := 'set ' + AliasName+aLetter + ' door open wait';
        mciSendString(PChar(s), nil, 0, 0);
    finally
        s := 'close ' + AliasName+aLetter + ' wait';
        mciSendString(PChar(s), nil, 0, 0);
    end;
end;
procedure CloseCDROM(aLetter:char);
const AliasName = 'MyCoolCdrom';
var s:string;
begin
    s := 'open ' + aLetter + ': type cdaudio alias ' + AliasName+aLetter + ' shareable wait';
    if mciSendString(PChar(s), nil, 0, 0) <> 0 then exit;  // fails to close
    try
        s := 'set ' + AliasName+aLetter + ' door closed wait';
        mciSendString(PChar(s), nil, 0, 0);
    finally
        s := 'close ' + AliasName + aLetter + ' wait';
        mciSendString(PChar(s), nil, 0, 0);
    end;
end;
0
BanDit
из интернетов
136 / 33 / 7
Регистрация: 16.01.2008
Сообщений: 394
25.01.2008, 20:19 6
Можно еще так открыть закрыть:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  public
    { Public declarations }
   Isopen: boolean;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
     mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   
  mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;
//кстати:
procedure TForm1.FormCreate(Sender: TObject);
begin
     IsOpen:=false;
end;
0
25.01.2008, 20:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2008, 20:19

Не получается грузится с CDROM
Здравствуйте!!! У меня непонятная для меня &quot;проблема&quot;... Установил в BIOS...

CDROM не определяется в БИОС.
Кто знает,почему при соидинение CD-ROMa,его Bios не находит и даже в системе...

Шаговый двигатель каретки из CDROM
Преамбула. Задумал я сделать себе сверлилку по примеру статьи на Датагоре - из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru