i found a Solution but not all is clear to me
Code: Select all
STATIC caItems := {} // for GRID
STATIC acImage := {}
STATIC aDrives
Code: Select all
nMainThreadID := GetCurrentThreadID()
HMG_ThreadShareData( 1, Win_1.HANDLE )
aThread[ 1 ] := hb_threadStart( HB_THREAD_INHERIT_PUBLIC, @Wait4Action() )
aThread[ 2 ] := hb_threadStart( HB_THREAD_INHERIT_PUBLIC, @DoNothing() )
AttachThreadInput( nMainThreadID, HMG_ThreadHBtoWinID( aThread[ 1 ] ), .T. )
AttachThreadInput( nMainThreadID, HMG_ThreadHBtoWinID( aThread[ 2 ] ), .T. )
CREATE EVENT PROCNAME USB_Detect() HWND Win_1.HANDLE STOREINDEX nIndex
EventProcessAllHookMessage( nIndex, .T. )
Code: Select all
FUNCTION Wait4Action()
...
Fillgrid()
DO_Image( .T. )
Code: Select all
Win_1.Grid_Device.hide()
...
Win_1.Grid_Device.show()