Проблемы с 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.
всё работает

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