如何把活动窗口转到我的程序上，或是封闭键盘.txt

VB技巧问答10000例 VB技巧问答10000例

BOOL SetForegroundWindow( 
     HWND hWnd // handle of window to bring to foreground 
     ); 
    //封 锁 键 盘 Lock 
    void SetKeyboard(bool Lock) 
    { 
     char K; 
     if(Lock) 
     K = 2; 
     else 
     K = 0; 
     asm{ 
     mov dx,21h 
     mov al,K 
     out dx,al 
     } 
     } 
<END>