как узнать что вставили новый CD

← →
pirat (2003-11-14 22:53) [0]

Как узнать момент вставляния в CD нового диска? Я так понимаю что по таймеру нужно вызывать какую-то функция API, но вот какую???
Еще подозреваю что на каждом CDROM защит уникальный ID, по которому и можно узнать о смене диска, так ли это ?

Прошу прощения если звучит чуть по ламерски, просто даже не знаю куда копать :-)

← →
Dimaxx (2003-11-15 00:15) [1]

const DBT_DEVICEARRIVAL = $8000;
const DBT_DEVICEQUERYREMOVE = $8001;
const DBT_DEVICEQUERYREMOVEFAILED = $8002;
const DBT_DEVICEREMOVEPENDING = $8003;
const DBT_DEVICEREMOVECOMPLETE = $8004;
const DBT_DEVICETYPESPECIFIC = $8005;
const DBT_CONFIGCHANGED = $0018;

procedure TForm1.WMDeviceChange(var Message: TMessage);
var S: string;
begin
{Do Something here}
case Message.wParam of
DBT_DEVICEARRIVAL: S:="A device has been inserted and is now available";
DBT_DEVICEREMOVECOMPLETE: S:="Device has been removed";
changed"
end;
ShowMessage(S);
inherited;
end;

← →
Pirat (2003-11-15 01:02) [2]

спасибо!

← →
pirat (2003-11-17 18:32) [3]

вот поторопился я спасибо говорить ...
изыскания показали что вешеприведенный код действительно реагирует на появление флэшки, но на вставляние CD он ноль реакции. Так как же узнать что вставили новый CD ? Усе время вызывать getvolumeinformation ??

← →
DVM (2003-11-17 18:38) [4]

> Усе время вызывать getvolumeinformation ??

да, надежнее всего по таймеру. Работает даже с теми CD приводами у которых сломан (отсутствует) контакт, отвечающий за индикацию смены диска.

← →
Pirate (2003-11-18 15:08) [5]

Брат! Вот моя идея:
function DirectoryExists("?:\"):Boolean;
проверяет существование диска "?"

← →
pirat (2003-11-18 18:37) [6]

угу ... а потом я еще нашел функцию VolumeID которая возвращает как раз то что мне надо :)

как узнать что вставили новый CD Найти похожие ветки