Форум: "WinAPI";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
ВнизКак отловить открытие/закрытие дверцы 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c