OpenEuphoria

1. Machile level exception

• Posted by doncole2009 Jan 19, 2009
• 1202 views

 
 
constant  FIRST_INDEX=1050, 
          LAST_INDEX=1052 
procedure check(integer self, integer event, sequence params)  
?event 
?params[1] 
?params[2] 
    if params[1]=120 then--f9 
         showWindow(Window1,SW_MINIMIZE) 
    elsif params[1]=121 then--f10 
         showWindow(Window1,SW_NORMAL)   
    end if 
 
-- clear the buffer 
-- poke( FIRST_INDEX, peek( LAST_INDEX ) ) this dosen't work I qet a machine level     execption 
end procedure 
setHandler(Screen,w32HKeyDown,routine_id("check")) 
 

This only works once on all further keyDowns nothing happens.

Don Cole

3. Re: Machile level exception

• Posted by doncole2009 Jan 19, 2009
• 1165 views

 
 
constant  FIRST_INDEX=1050, 
          LAST_INDEX=1052 
procedure check(integer self, integer event, sequence params)  
?event 
?params[1] 
?params[2] 
    if params[1]=120 then--f9 
         showWindow(Window1,SW_MINIMIZE) 
    elsif params[1]=121 then--f10 
         showWindow(Window1,SW_NORMAL)   
    end if 
 
-- clear the buffer 
-- poke( FIRST_INDEX, peek( LAST_INDEX ) ) this dosen't work I qet a machine level     execption 
end procedure 
setHandler(Screen,w32HKeyDown,routine_id("check")) 
 

Thank you Bernie,

FIRST_INDEX and LAST_INDEX represent the keyboard buffer as per keys.e

On further review I have found that the machine level execption occures because I am trying to use a dos (.ex) program in a window (.exw) program.

What I am trying to do is this:

Press F9 and SW_HIDE the window. Press F10 and have the window reappear. Somewhere in between the keyboard buffer must be cleared.

poke( FIRST_INDEX, peek( LAST_INDEX ) ) works in dos but not in windows.

So what I don't know how to do is clear the keyboard buffer in windows.

Don Cole

5. Re: Machile level exception

• Posted by doncole2009 Jan 20, 2009
• 1140 views

 
 
constant  FIRST_INDEX=1050, 
          LAST_INDEX=1052 
procedure check(integer self, integer event, sequence params)  
?event 
?params[1] 
?params[2] 
    if params[1]=120 then--f9 
         showWindow(Window1,SW_MINIMIZE) 
    elsif params[1]=121 then--f10 
         showWindow(Window1,SW_NORMAL)   
    end if 
 
-- clear the buffer 
-- poke( FIRST_INDEX, peek( LAST_INDEX ) ) this dosen't work I qet a machine level     execption 
end procedure 
setHandler(Screen,w32HKeyDown,routine_id("check")) 
 

Hello Bernie,

Set your handler to watch w32HKeyPress ( WM_CHAR message )

How do I do that?

I think you mean w32HKeyDown because F9 AND F10 are unpritable.

Don Cole

7. Re: Machile level exception

• Posted by doncole2009 Jan 20, 2009
• 1134 views
• Last edited Jan 21, 2009

Thanks Bernie for trying to help.

I found this works:

procedure check(integer self, integer event, sequence params)    
     if params[1]=116 then--f5 
        showWindow(Window1,SW_HIDE) 
     elsif params[1]=117 then--f6 
        showWindow(Window1,SW_SHOWMAXIMIZED) 
     end if 
end procedure 
setHandler(Screen,w32HKeyDown,routine_id("check")) 
 

With two problems I can live with.

1.) I have to hit F5 twice before F6 works.

I think this is because the keyboard buffer must be cleared. I don't know how to do that with win32lib.

2.)When F6 works the window is minimized in the taskbar not maximixed.

At least it's working some what.

Thanks again Don Cole

9. Re: Machile level exception

• Posted by CChris Jan 21, 2009
• 1157 views

I just tried this:

include win32lib.ew 
 
constant Window1=create(Window,"test",0,100,100,50,50,0), 
         w=create(Window,"aaa",0,10,10,10,10,0) 
 
procedure check(integer self, integer event, sequence params) 
     if params[1]=116 then--f5  
        showWindow(Window1,SW_HIDE)  
     elsif params[1]=117 then--f6  
        showWindow(Window1,SW_SHOWMAXIMIZED)  
     end if  
end procedure  
setHandler(Screen,w32HKeyDown,routine_id("check")) 
openWindow(w,0) 
 
WinMain(Window1,Normal) 

Program behaves as expected. If you remove or hide w, then, when you hit F5, your app has no visible window, so cannot have focus, so win32lib never knows about F6. Screen refers to all windows of current application, not the whole screen like single task OSes might see it. Hooking int 09 like TSRs used to do just doesn't work. The name is quite misleading, but changing it would break between 95 and 99% of existing code base.

If you want to have a single window which you can hide and show from any application, I think the simplest route is to wrap RegisterHotKey() (see http://msdn.microsoft.com/en-us/library/ms646309.aspx ) and process the WM_HOTKEY message using a raw message handler.

Note that there is a registerHotKey() in win32lib, but it does something which is only mildly related. Another name we are stuck with.

CChris Btw I don't have the quirks you mention on XP Pro. Are you using Win98? There might be bugs in that OS.

11. Re: Machile level exception

• Posted by doncole2009 Jan 21, 2009
• 1112 views
• Last edited Jan 22, 2009

Guillermo,

I would like to see this.

CCris,

This is very interesting.

Don Cole

13. Re: Machile level exception

• Posted by gbonvehi Jan 22, 2009
• 1079 views
• Last edited Jan 23, 2009

Ok, here's the code, you may need to tweak it. The w32allot method is win32lib specific but it's easy to emulate if you need.

 
global constant fUser32 = open_dll("user32.dll"), 
        xSetWindowsHookEx = define_c_func(fUser32,"SetWindowsHookExA",{C_INT,C_POINTER,C_POINTER,C_POINTER},C_POINTER), 
        xUnhookWindowsHookEx = define_c_proc(fUser32,"UnhookWindowsHookEx",{C_POINTER}), 
        xCallNextHookEx = define_c_func(fUser32,"CallNextHookEx",{C_POINTER,C_INT,C_POINTER,C_POINTER},C_POINTER), 
        WH_KEYBOARD_LL = 13 
 
constant 
    kbhook_vkCode= w32allot( DWord ), 
    kbhook_scanCode= w32allot( DWord ), 
    kbhook_flags= w32allot( DWord ), 
    kbhook_time= w32allot( DWord ), 
    kbhook_dwExtraInfo= w32allot( DWord ), 
    SIZEOF_KBDLLHOOKSTRUCT       = w32allotted_size() 
 
atom HookKeyboard 
 
function CallBackHook( integer Code, atom wParam, atom lParam ) 
atom vkCode 
integer currvent 
  if Code=0 then 
        if wParam = WM_KEYUP or wParam = WM_SYSKEYUP then 
                vkCode = w32fetch(lParam, kbhook_vkCode) 
                if vkCode = VK_F5 then 
                        -- something 
                        return 1 
                elsif vkCode = VK_F6 then 
                        -- something 
                        return 1 
                end if 
        end if 
  end if 
  return c_func(xCallNextHookEx,{HookKeyboard, Code, wParam, lParam}) 
end function 
 
-- Call this to setup the hook 
        HookKeyboard = c_func(xSetWindowsHookEx, {WH_KEYBOARD_LL, call_back(routine_id("CallBackHook")), instance(), 0 }) 
 
-- Call this to stop the hook 
        c_proc(xUnhookWindowsHookEx,{HookKeyboard}) 
 

I hope this works for you, I copied just the relevant parts, but I think I didn't skip anything you'll need.

Regards,
Guillermo

15. Re: Machile level exception

• Posted by CChris Jan 23, 2009
• 1120 views

When Windows sends a mesage o a window, it may expect a reply, depending on the message.

returnValue() forces such a reply from the user defined handlers, before the default message processing for the window kicks in. For some messages, the only thing that matters is zero vs nonzero. For other messages, it is a different story. You have to search MSDN for the meaning of the return value of a particular message, or use some other docs.

doEvents() is hardly related, since it forces processing pending messages before returning to caller. You'll use this to refresh a window you repaint inside a handler, for instance. The 0 usually passed to it is Screen actually. You could use a control id to check messages pending for this control specifically.

CChris

17. Re: Machile level exception

• Posted by doncole2009 Jan 25, 2009
• 1039 views

Thanks CChris,

Don Cole