VPF::Подскажите код для открывания и закрывания CD-ROM

JohnnY

Дата 21.8.2005, 01:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Всем программистам, проффессионалам и новичкам большой HI!!!
Подскажите пожалуйста код для открывания и закрывания CD-ROM... smile

Ещё если возможно код для попытки чтения Floopy... smile

И ещё если Вас это не затруднить на Выключение или перезагрузку компа... smile

Буду очень сильно благодарен...Спасибо!

Alex

Дата 21.8.2005, 02:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Модератор: Пожалуйста, один топик - один вопрос.

Цитата(JohnnY @ 21.8.2005, 02:12)

Подскажите пожалуйста код для открывания и закрывания CD-ROM...

http://vingrad.ru/DELPHI-DLP-001269

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Poseidon

Дата 21.8.2005, 02:31 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

JohnnY, один топик, один вопрос!

Цитата(JohnnY @ 21.8.2005, 01:13)

Подскажите пожалуйста код для открывания и закрывания CD-ROM...

Код

uses mmsystem;
...
procedure ... //открыть 
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure ... //закрыть
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
// возможно некоторое подвисание, но в этом виновен Windows а не програма
end;

Цитата(JohnnY @ 21.8.2005, 01:13)

Ещё если возможно код для попытки чтения Floopy...

Не совсем понял что нужно, но вот код:

Код

function YDiskette: boolean;
var
ADriveLetter : Char;

  SectorsPerCluster,
  BytesPerSector,
  NumberOfFreeClusters,
  TotalNumberOfClusters   : Cardinal;
begin
ADriveLetter:= 'A';
  Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
                              SectorsPerCluster,
                              BytesPerSector,
                              NumberOfFreeClusters,
                              TotalNumberOfClusters);
end;

Цитата(JohnnY @ 21.8.2005, 01:13)

И ещё если Вас это не затруднить на Выключение или перезагрузку компа...

http://vingrad.ru/DELPHI-DLP-000459
http://vingrad.ru/DELPHI-DLP-000455

Добавлено @ 02:31
Alex, опередил smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

JohnnY

Дата 21.8.2005, 03:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Большое спасибо за код!!! smile

Alex и Poseidon Вы очень помогли ещё раз спасибо! Хотел увеличить Вашу репутацию, но увы Вылазиет ошибка: "Недостаточно постов, надо 100"... smile

Это сообщение отредактировал(а) JohnnY - 21.8.2005, 03:30

JohnnY

Дата 21.8.2005, 03:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

И ещё вопросик: Возможно ли в Delphi убрать программу из панели задач (из строки где "пуск")??? smile

Alex

Дата 21.8.2005, 03:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

JohnnY - Модератор: Пожалуйста, один топик - один вопрос.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »