From: Robert M. <mar...@us...> - 2006-02-23 08:23:04
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23047/JVCL3/run Modified Files: JvHidControllerClass.pas Log Message: fixes Windows shutdown problem Index: JvHidControllerClass.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvHidControllerClass.pas,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** JvHidControllerClass.pas 11 Feb 2006 16:49:01 -0000 1.33 --- JvHidControllerClass.pas 23 Feb 2006 08:22:58 -0000 1.34 *************** *** 46,54 **** JvComponentBase, {$ENDIF USEJVCL} ! DBT, SetupApi, HID, ModuleLoader; const // a version string for the component ! cHidControllerClassVersion = '1.0.31'; // strings from the registry for CheckOutByClass --- 46,54 ---- JvComponentBase, {$ENDIF USEJVCL} ! DBT, SetupApi, HID, ModuleLoader, Dialogs; const // a version string for the component ! cHidControllerClassVersion = '1.0.32'; // strings from the registry for CheckOutByClass *************** *** 1648,1658 **** // sort out WM_DEVICECHANGE : DBT_DEVNODES_CHANGED if (Msg.Msg = WM_DEVICECHANGE) and (TWMDeviceChange(Msg).Event = DBT_DEVNODES_CHANGED) then ! if not FInDeviceChange then ! begin ! FLParam := Msg.LParam; ! FInDeviceChange := True; ! DeviceChange; ! FInDeviceChange := False; ! end; end; --- 1648,1660 ---- // sort out WM_DEVICECHANGE : DBT_DEVNODES_CHANGED if (Msg.Msg = WM_DEVICECHANGE) and (TWMDeviceChange(Msg).Event = DBT_DEVNODES_CHANGED) then ! if not FInDeviceChange then ! begin ! FLParam := Msg.LParam; ! FInDeviceChange := True; ! DeviceChange; ! FInDeviceChange := False; ! end; ! if Msg.Msg = WM_QUERYENDSESSION then ! Msg.Result := 1; end; |