не могу разобраться с allocatehwnd

[Пепел Феникса]

А как и результат SendMessage получить и не ждать бесконечно ответа от зависшего приложения?

SendMessageTimeout

[Smogg]

Спасибо)

Если придется связаться с HWND_BROADCAST, то попробую не забыть.

[grandmixer]

ну например чтобы обнаружалась usb (самое распространенное в сети применение) нужно добавить

type
  PDevBroadcastHdr  = ^DEV_BROADCAST_HDR;
  DEV_BROADCAST_HDR = packed record
    dbch_size: DWORD;
    dbch_devicetype: DWORD;
    dbch_reserved: DWORD;
  end;

  PDevBroadcastDeviceInterface  = ^DEV_BROADCAST_DEVICEINTERFACE;
  DEV_BROADCAST_DEVICEINTERFACE = record
    dbcc_size: DWORD;
    dbcc_devicetype: DWORD;
    dbcc_reserved: DWORD;
    dbcc_classguid: TGUID;
    dbcc_name: short;
  end;

const
  GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';
  DBT_DEVICEARRIVAL = $8000;
  DBT_DEVTYP_DEVICEINTERFACE = $00000005;

function USBreg:boolean;
var
  dbi:DEV_BROADCAST_DEVICEINTERFACE;
  size:Integer;
  r:pointer;
begin
  Result:=false;
  size:=SizeOf(DEV_BROADCAST_DEVICEINTERFACE);
  ZeroMemory(@dbi,size);
  dbi.dbcc_size:=size;
  dbi.dbcc_devicetype:=DBT_DEVTYP_DEVICEINTERFACE;
  dbi.dbcc_reserved:=0;
  dbi.dbcc_classguid:=GUID_DEVINTERFACE_USB_DEVICE;
  dbi.dbcc_name:=0;

  r:=RegisterDeviceNotification(FWh,@dbi,DEVICE_NOTIFY_WINDOW_HANDLE);
  if assigned(r) then result:=true;
end;

и сообщения о подключении устройства приходят потому что мы сами его посылаем нашему окну?(RegisterDeviceNotification(FW h,@dbi,DEVICE_NOTIFY_WINDOW_HANDLE) ;

[Пепел Феникса]

тут мы просим систему прислать нам уведомление.

броадкастные сообщения в общем то посылают только постом.

[grandmixer]

ладно отойдем от устройств, а почему тогда нажатия кнопок не ловит?

[grandmixer]

Ну как я понял:

//создаем невидимое окно где что то вроде таймера это WndProc
constructor mixer.Create;
begin
  inherited Create;
  FWh:=AllocateHwnd(WndProc);
end;

//обрабатываем сообщения
procedure mixer.WndProc(var Msg:TMessage);
begin
  if (msg.Msg = WM_LButtonDown) then //почему не работает?
  showmessage('press')
  else
  Msg.Result:=DefWindowProc(FWh,Msg.Msg,Msg.WParam,Msg.LParam);
end;

{создаем бесконечный цикл приема сообщений
можно сделать и 
while true do
getmessage(msg,0,0,0)
}
begin
  GrMix:=mixer.Create;
  while GetMessage(Msg,0, 0, 0) do //получаем сообщение в msg
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  GrMix.Destroy;
end.

[Smogg]

потому что в структуре msg есть указание, в напрaвлении какого окна делается Dispatch().

Не уверен в синтаксисе, но будет как-то так:

begin
  GrMix:=mixer.Create;
  while GetMessage(Msg,0, 0, 0) do //получаем сообщение в msg
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
     
    msg.hwnd = mixer.hWnd;
    DispatchMessage(Msg);

  end;
  GrMix.Destroy;
end.

[grandmixer]

Сделал так но не получается а вроде все норм
begin
GrMix:=mixer.Create;
grmix.USBRegister;
while GetMessage(Msg,0, 0, 0) do //принимаем сообщение
begin
msg.hwnd:=grmix.fwh;//получателем делаем моё окно
TranslateMessage(msg);
DispatchMessage(msg);
end;
GrMix.Destroy;
end.