如何使用SendMessage发送按键组合，例如：Ctrl+A

代码

var    
      hwnd   :   Integer;   
   begin    
      hwnd   : =    FindWindow( ' Notepad ' ,    nil );   
      SetForegroundWindow(hwnd);   
      keybd_event(VK_CONTROL,   MapVirtualKey(VK_CONTROL,    0 ),    0 ,    0 );   
      keybd_event(Ord( ' A ' ),   MapVirtualKey(Ord( ' A ' ),    0 ),    0 ,    0 );   
      keybd_event(Ord( ' A ' ),   MapVirtualKey(Ord( ' A ' ),    0 ),   KEYEVENTF_KEYUP,    0 );   
      keybd_event(VK_CONTROL,   MapVirtualKey(VK_CONTROL,    0 ),   KEYEVENTF_KEYUP,    0 )   
   end ;

 

============================================================================

--------------第一种方法------------   
  这种方法在中文输入法打开的情况下中西文都正常,   
  但我不想用这种费事的办法.   
  ------------------------------------   
  //模拟按键函数   
  代码

procedure    TForm1.SendKeys(sSend: string );   
   var    
          i:integer;   
          Sstr: string ;   
          focushld,windowhld:hwnd;   
          threadld:dword;   
          ch:   byte;   
   begin    
      windowhld: = GetForegroundWindow;   
      threadld: = GetWindowThreadProcessId(Windowhld, nil );   
      AttachThreadInput(GetCurrentThreadId,threadld,true);   
      Focushld: = getfocus;   
      getcursorpos(p);    // 查鼠标坐标   
      Focushld: = WindowFromPoint(p);    // 返回句柄   
      AttachThreadInput(GetCurrentThreadId,threadld,false);   
       if    (focushld = 0 )    or    
            (focushld = Self.Memo1.Handle)    or    
            (focushld = Self.Edit1.Handle)    or    
            (focushld = Self.Edit2.Handle)    or    
            (focushld = SpinEdit1.Handle)      then    
           begin    
                Exit;   
           end ;   
      i   : =     1 ;   
       while    i    <=    Length(sSend)    do    
       begin    
          ch   : =    byte(sSend[i]);   
           if    Windows.IsDBCSLeadByte(ch)    then    
               begin    
                    Inc(i);   
                    SendMessage(focushld,   WM_IME_CHAR,   MakeWord(byte(sSend[i]),   ch),    0 );   
               end    
           else    
               begin    
                    SendMessage(focushld,   WM_IME_CHAR,   word(ch),    0 );   
               end ;   
          Inc(i);   
       end ;   
      SendMessage(focushld,   WM_IME_CHAR,   word( 13 ),    0 );   
   end ;   
    
   // 定时器定时发送字符   
   procedure    TForm1.Timer1Timer(Sender:   TObject);   
   begin    
        SendKeys( ' ABCD1234大话西游 ' );   
   end ;      

 

 
  --------------第二种方法------------   
  这种方法用拷贝-粘贴的方式,在记事本下正常,   
  但在WORD下毫无反应!   
  ------------------------------------   
   代码

procedure    TGoodDictForm.SendKey();   
   var    
          i:integer;   
          focushld,windowhld:hwnd;   
          threadld:dword;   
          ch:   byte;   
   begin    
      windowhld: = GetForegroundWindow;   
      threadld: = GetWindowThreadProcessId(Windowhld, nil );   
      AttachThreadInput(GetCurrentThreadId,threadld,true);   
      getcursorpos(p);    // 查鼠标坐标   
      Focushld: = WindowFromPoint(p);    // 返回句柄   
      AttachThreadInput(GetCurrentThreadId,threadld,false);   
       if    (focushld = 0 )    or    (focushld = Self.Memo1.Handle)    then    
           begin    
                Exit;   
           end ;   
      SendMessage(focushld,   WM_Paste,    0 ,    0 );   
   end ;   
    
   // 定时器定时发送字符   
   procedure    TForm1.Timer1Timer(Sender:   TObject);   
   begin    
        Edit1.SelectAll;   
        Edit1.CopyToClipboard;   
        SendKeys();   
   end ;   

 

  要正確送出中文字符一定要依照微軟的IME機制,   單純用SendMessage   是不能夠的.   你可以把要送出的字符放在剪貼板中,   使用keybd_event     這個API送出   Ctrl   與   V   兩鍵的組合.   就能夠把中英文字串放到Word   軟件中,     
  keybd_event(VK_CONTROL,   0,   0,   0);   
  keybd_event(Ord('v'),       0,   0,   0);   
  keybd_event(Ord('v'),       0,   KEYEVENTF_KEYUP,   0);   
  keybd_event(VK_CONTROL,   0,   KEYEVENTF_KEYUP,   0);   
    
  uses   sendkey32   
  {+   =   Shift   
  ^   =   Control   
  %   =   Alt}   
  SendKeys('^X',true);     
  发送   Control+X消息   
 =====================================================================

 

代码

procedure    TForm1.Button1Click(Sender:   TObject);   
   var    
      KeyState:   TKeyboardState;   
   begin    
      GetKeyboardState(KeyState);   
      KeyState[VK_CONTROL]   : =     not    KeyState[VK_CONTROL];    //    ctrl -> down   
      SetKeyboardState(KeyState);   
      SendMessage(Form1.Handle,   WM_KEYDOWN,   WPARAM( ' A ' ),    0 );   
      GetKeyboardState(KeyState);   
      KeyState[VK_CONTROL]   : =     not    KeyState[VK_CONTROL];    //    ctrl -> up   
      SetKeyboardState(KeyState);   
   end ;   
    
   procedure    MyKeyDown( var    msg:   TWMKeyDown); message    WM_KEYDOWN;   
    
   procedure    TForm1.MyKeyDown( var    msg:   TWMKeyDown);   
   begin    
       if    GetKeyState(VK_CONTROL)    <     0     then    
       begin    
          ShowMessage( ' Ctrl   +    '     +    Chr(msg.CharCode));    //    it ' s   OK.   
       end ;   
       inherited ;   
   end ;

 

 

转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832045.html