Текущий архив: 2005.08.21;
Скачать: CL | DM;

Вниз

Как отловить открытие/закрытие дверцы CD-ROM?   Найти похожие ветки 

← →
Вадим Станкевич   (2005-06-04 02:14) [0]

Когда-то где-то писали, что должно высылаться сообщение WM_DEVICECHANGE, но... не работает! Дамы и господа, очень прошу, ПОМОГИТЕ!

---

← →
NeoVariant ©   (2005-06-04 19:59) [1]

Не знаю, как ты обрабатываешь сообщение WM_DEVICECHANGE, но мой вариант работает.
type
  TForm1 = class(TForm)
  private
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
  public

  end;

{...}

implementation

{$R *.DFM}

procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
  DBT_DEVICEARRIVAL = $8000;
  DBT_DEVICEREMOVECOMPLETE = $8004;
var
  myMsg: string;
begin
  inherited;
  case Msg.wParam of
    DBT_DEVICEARRIVAL: myMsg  := "CD вставлен";
    DBT_DEVICEREMOVECOMPLETE: myMsg := "CD извлечён";
  end;
  ShowMessage(myMsg);
end;

---

← →
rem b   (2005-06-04 20:23) [2]

Как отловить - без диска на лотке никак к сожелению

---

← →
Вадим Станкевич   (2005-06-04 23:17) [3]

Большое спасибо всем! Особенно NeoVariant!

---

← →
Max009   (2005-06-29 18:19) [4]

Можно через библиотеку bass.dll

---

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

Текущий архив: 2005.08.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c