Хук wm_DeviceChange

[GenniY]

Привет.
Интересно почему с помощью хука не отлавливает сообщение WM_DEVICECHENGE?
Такое, например, как нажатие кнопки ловит.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  HandleHook : HWND;
implementation

function Proc(code : Integer; wParam : Word; lParam : longint): LongInt; stdcall;
var
  Msg : PEventMsg;
begin
  msg := Pointer(lParam);
  if code >= 0 then
  begin
    Result := 0;
    if (Msg.message = wm_devicechange) then
    begin
    ShowMessage('das');
    end;


  end
  else
  begin
    Result := CallNextHookEx(HandleHook,code,wParam,lParam);
  end;
end;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
HandleHook := SetWindowsHookEx(WH_JOURNALRECORD,@Proc,HInstance,0);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if HandleHook<>0 then
UnhookWindowsHookEx(HandleHook);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if HandleHook<>0 then
UnhookWindowsHookEx(HandleHook);
end;

end.

[BOBAH13]

Какой смысл делать хук на такое сообщений внутри программы ? Тем более есть более рациональные решения раз используите VCL.

В добавок из MSDN

A window receives this message through its WindowProc function.Remarks

For devices that offer software-controllable features, such as ejection and locking, the system typically sends a DBT_DEVICEREMOVEPENDING message to let applications and device drivers end their use of the device gracefully. If the system forcibly removes a device, it may not send a DBT_DEVICEQUERYREMOVE message before doing so.

Почитайте.. и обработать как я понял можно прямо в окне. Так что пробуйте

[GenniY]

BOBAH13, спасибо за ответ.
По поводу того, что вы написали я в курсе.

У меня программа должна запускаться с флешки при её вставке и закрываться при вынимании. Первая часть работает. А вторая работает с помощью

 procedure WMDeviceChange(var message: TMessage); message WM_DEVICECHANGE;

но только когда программа запущена не с USB-носителя.

После вытаскивания флехи программа ничего не сохраняет. Ее просто нужно убить.

Какие есть варианты?