PureBasic Forums - English

Posted: **Wed Sep 03, 2008 9:50 pm**

Hello PB Coders!!

is there a way to detect windows event if a windows is invisible?

if yes how?

ex.

if i open a window...

Code: Select all

Procedure.b OpenWindow_MainForm()
	If OpenWindow(#MainForm, 326, 264, 566, 295, "PenDrive Immunizer", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered);
		QueryCancelAutoPlay = RegisterWindowMessage_("QueryCancelAutoPlay")
   	SetWindowCallback(@WindowCallback())
   	AddSysTrayIcon(1, WindowID(#MainForm), LoadImage(0, "Gfx\pendrive.ico"))
		ProcedureReturn  #True
	Else
		ProcedureReturn #False
	EndIf
EndProcedure

main loop

Code: Select all

If OpenWindow_MainForm()
	Repeat
   	; >>> ATTENDI EVENTO DA UTENTE <<<
  
  		Event = WaitWindowEvent(100)
  		; >>>>>>>>>>>>>>>>>>>>>>>
  
  		; L'Evento generato dal SysTray ?
  		If Event = #PB_Event_SysTray
    		Select EventType()
      		Case #PB_EventType_RightClick ; Click destro sull'icona nella taskbar ?
        		DisplayPopupMenu(0, WindowID(#MainForm)) ;Visualizza il menu...
    		EndSelect
  		EndIf
  
		; Controllo del menu sull'icona....  
  		If Event = #PB_Event_Menu
  			Select EventMenu()
    			Case 1; Quit
      			Quit = 1
    		EndSelect
  		EndIf
  
	Until Event = #PB_Event_CloseWindow Or Quit = 1 
EndIf

if the window is visible the code detect the pen drive if it is inserted in the pc... and the code call the callback procedure...

but if the windows is invisible it not detect the usb pen drive...

how can i solve this problem?

thanks.

please help!.

thanks again.

Posted: **Thu Sep 04, 2008 1:53 am**

Maybe more info will shed some light. Can we see your WindowCallback() proc? Which event (message) are you trying to catch? Your code is incomplete and does not run as is.

Posted: **Thu Sep 04, 2008 7:17 am**

sorry...
this is the source...

i'm trying to catch the usb key....

Code: Select all

EnableExplicit

#MainForm	= 0
#True				= 1
#False				= 0

Global Event.l                = 0
Global Quit.b                  = 0
Global QueryCancelAutoPlay.l

CreatePopupMenu(0)
  MenuItem(1, "Quit")

  Procedure OpenFolderWindow (Folder.s)
  Define OpInfo.s="OPEN"
  ShellExecute_(0, @OpInfo, @Folder, 0, 0, #SW_SHOWDEFAULT)
EndProcedure


Procedure.l WindowCallback(hwnd, message, wParam, lParam)
   Define.l result = #PB_ProcessPureBasicEvents
  	Define n.b
         
   Select message
      Case QueryCancelAutoPlay
         ; è Stato avviato l'autoplay... e noi l'abbiamo fermato....
         ; ora controlliamo le lettere e vediamo se ne sono state aggiunte periferiche rimovibili...
         For n = 2 To 26
    			If RealDriveType_(n, 0) =  #DRIVE_REMOVABLE
      			OpenFolderWindow(Chr(n+65)+":")
         		Break;
         	EndIf
         Next
         result = 1
   EndSelect
  
  ProcedureReturn result
EndProcedure

Procedure.b OpenWindow_MainForm()
	If OpenWindow(#MainForm, 326, 264, 566, 295, "PenDrive Immunizer", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered);|#PB_Window_Invisible)
		QueryCancelAutoPlay = RegisterWindowMessage_("QueryCancelAutoPlay")
   	SetWindowCallback(@WindowCallback())
   	;AddSysTrayIcon(1, WindowID(#MainForm), LoadImage(0, "Gfx\pendrive_disabled.ico"))
		ProcedureReturn  #True
	Else
		ProcedureReturn #False
	EndIf
EndProcedure
	
If OpenWindow_MainForm()
	Repeat
   	; >>> ATTENDI EVENTO DA UTENTE <<<
  
  		Event = WaitWindowEvent(1000)
  		; >>>>>>>>>>>>>>>>>>>>>>>
  
  		; L'Evento generato dal SysTray ?
  		If Event = #PB_Event_SysTray
    		Select EventType()
      		Case #PB_EventType_RightClick ; Click destro sull'icona nella taskbar ?
        		DisplayPopupMenu(0, WindowID(#MainForm)) ;Visualizza il menu...
    		EndSelect
  		EndIf
  
		; Controllo del menu sull'icona....  
  		If Event = #PB_Event_Menu
  			Select EventMenu()
    			Case 1; Quit
      			Quit = 1
    		EndSelect
  		EndIf
  
	Until Event = #PB_Event_CloseWindow Or Quit = 1 
EndIf

SetWindowCallback(0)

End

Posted: **Thu Sep 04, 2008 11:52 am**

Apparently that message is only sent to a top-level foreground window, i.e. your window must be visible and active otherwise it will not receive it. I can't check that right now though.

Yes, see here for more info - seems like you need to use COM instead of that window message: http://msdn.microsoft.com/en-us/magazine/cc301341.aspx

Posted: **Thu Sep 04, 2008 11:36 pm**

tinman wrote:Apparently that message is only sent to a top-level foreground window, i.e. your window must be visible and active otherwise it will not receive it. I can't check that right now though.

Yes, see here for more info - seems like you need to use COM instead of that window message: http://msdn.microsoft.com/en-us/magazine/cc301341.aspx

yes.
RegisterWindowMessage_("QueryCancelAutoPlay")
is only sent top-level foreground window
but i don't know how use COM.

any help? (Docs, src,?)

thanks.

Posted: **Fri Sep 05, 2008 10:18 am**

I don't have any and I don't know how to use COM but I found some C++ code here: http://blog.csdn.net/kuanghong/archive/ ... 13508.aspx

Posted: **Fri Sep 05, 2008 10:22 am**

tinman wrote:I don't have any and I don't know how to use COM but I found some C++ code here: http://blog.csdn.net/kuanghong/archive/ ... 13508.aspx

wow thanks!

i'll try to implement in PB.

if i succed i'll post here the source...

thanks again...

Posted: **Thu May 22, 2014 1:07 am**

Have you ever succeeded?

GregBUG wrote:
tinman wrote:I don't have any and I don't know how to use COM but I found some C++ code here: http://blog.csdn.net/kuanghong/archive/ ... 13508.aspx
wow thanks!

i'll try to implement in PB.

if i succed i'll post here the source...

thanks again...

PureBasic Forums - English

window event if window is invisible...

window event if window is invisible...

Re: