Скачать: CL | DM;

Проблемы с WM_DEVICECHANGE...   Найти похожие ветки 

← →
Anonim   (2004-12-06 06:21) [0]

Пытаюсь обрабатывать это сообщение, но ничего не получается, сообщение не генерируется... или не посылается моему приложению. При всем этом остальные сообщения нормально передаются мне. Может кто встречался с такой проблемой?

---

← →
abc   (2004-12-06 17:09) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
private
 { Private declarations }
 procedure WMDeviceChange(var Message: TMessage); message WM_DEVICECHANGE;
public
 { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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_DEVICEQUERYREMOVE: begin
                          S:="Permission to remove a device is requested";
                          ShowMessage(S);
                          {True grants premission}
                          Message.Result:=integer(True);
                          Exit;
                        end;
 DBT_DEVICEQUERYREMOVEFAILED: S:="Request to remove a device has been canceled";
 DBT_DEVICEREMOVEPENDING    : S:="Device is about to be removed";
 DBT_DEVICEREMOVECOMPLETE   : S:="Device has been removed";
 DBT_DEVICETYPESPECIFIC     : S:="Device-specific event";
 DBT_CONFIGCHANGED          : S:="Current configuration has changed"
 else S:="Unknown Device Message";
end;
ShowMessage(S);
inherited;
end;

end.
всё работает

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c