Проверить подключено ли устройство к usb

[Иллидан]

Как на дельфи проверить когда устройство(например флешка) подключается к USB?

[vitalik007]

отлавлдивай сообщение message WM_DEVICECHANGE;
wparam=32772 отключение устройства
wparam=32778 подключение устройства

[Никки]

wparam=32772 отключение устройства
wparam=32778 подключение устройства

это для всех устройств или только для флешки??

как определить подключение конкретного устройства, например зная как оно называется в системе!

[vitalik007]

скорее всего для любого учтройства

[Иллидан]

А можно поконкретнее? Что делает WM_DEVICECHANGE? Что значат 32778 и 32772? Ты предлагаешь поставить на таймер :
if WM_DEVICECHANGE=32778 then ?

[Никки]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  protected

  end;
var
  Form1: TForm1;
  MyHandle:HHOOK=0;
implementation
{$R *.dfm}
function MyHook(Code:integer;wParam:word;lParam:Longint):LongInt; StdCall;
begin
        Form1.Label1.Caption:=IntToStr(wParam);
        CallNextHookEx(MyHandle,Code, wParam, lParam);
end;
procedure UnHook;
begin
        UnhookWindowsHookEx(MyHandle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
        MyHandle:=SetWindowsHookEx(WH_Keyboard,@MyHook,HInstance,0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        UnhookWindowsHookEx(MyHandle);
end;

end.

в этой программе в TLabel должны писаться wparam

Уже сиправил! Теперь работает! Это отслеживает нажатия клавиш, а с подключением отключением устройства у меня не получилось!

[vitalik007]

Я тебе счасдам исходник там я исследовал сообщение это

[vitalik007]

вот обещаный исходник