在Delphi中用什么方法可以实现模拟键盘输入，就象微软ABC输入法中的图形键盘一样。(100分)

dreamdelphi · 2001-12-06

[?]在Delphi中用什么方法可以实现模拟键盘输入，就象微软ABC输入法中的图形键盘一样。

dongberlin · 2001-12-06

keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);//Key Up keybd_event(VK_Control, 0, 0, 0 ); //Key Down

dreamdelphi · 2001-12-06

能否说得详细一些呢？谢了先！

白海森 · 2001-12-06

抄了一段，你看看先。 让 WIN95 模拟按了一个按键，例如按下 ENTER或者 TAB 键? PostMessage(Object.Handle, WM_KEYDOWN, VK_TAB, 0); -------------------------------------------------------------------------------- unit Unit1; interface uses   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,   Forms, Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormKeyPress(Sender: TObject; var Key: Char);   private     AppInst: THandle;     AppWind: THandle;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} uses ShellAPI;   procedure SendShift(H: HWnd; Down: Boolean); var vKey, ScanCode, wParam: Word;     lParam: longint; begin   vKey:= $10;   ScanCode:= MapVirtualKey(vKey, 0);   wParam:= vKey or ScanCode shl 8;   lParam:= longint(ScanCode) shl 16 or 1;   if not(Down) then lParam:= lParam or $C0000000;   SendMessage(H, WM_KEYDOWN, vKey, lParam); end; procedure SendCtrl(H: HWnd; Down: Boolean); var vKey, ScanCode, wParam: Word;     lParam: longint; begin   vKey:= $11;   ScanCode:= MapVirtualKey(vKey, 0);   wParam:= vKey or ScanCode shl 8;   lParam:= longint(ScanCode) shl 16 or 1;   if not(Down) then lParam:= lParam or $C0000000;   SendMessage(H, WM_KEYDOWN, vKey, lParam); end; procedure SendKey(H: Hwnd; Key: char); var vKey, ScanCode, wParam: Word;     lParam, ConvKey: longint;     Shift, Ctrl: boolean; begin   ConvKey:= OemKeyScan(ord(Key));   Shift:= (ConvKey and $00020000) <> 0;   Ctrl:= (ConvKey and $00040000) <> 0;   ScanCode:= ConvKey and $000000FF or $FF00;   vKey:= ord(Key);   wParam:= vKey;   lParam:= longint(ScanCode) shl 16 or 1;   if Shift then SendShift(H, true);   if Ctrl then SendCtrl(H, true);   SendMessage(H, WM_KEYDOWN, vKey, lParam);   SendMessage(H, WM_CHAR, vKey, lParam);   lParam:= lParam or $C0000000;   SendMessage(H, WM_KEYUP, vKey, lParam);   if Shift then SendShift(H, false);   if Ctrl then SendCtrl(H, false); end; function EnumFunc(Handle: HWnd; TF: TForm1): Bool; Far; begin   TF.AppWind:= 0;   if GetWindowWord(Handle, GWW_HINSTANCE) = TF.AppInst then     TF.AppWind:= Handle;   result:= (TF.AppWind = 0); end; procedure TForm1.Button1Click(Sender: TObject); var Text: Array[0..255] of char; begin   AppInst:= ShellExecute(Handle, 'open', 'notepad.exe', nil, '', SW_NORMAL);   EnumWindows(@EnumFunc, longint(self));   AppWind:= GetWindow(AppWind, GW_CHILD); end;   procedure TForm1.Button2Click(Sender: TObject); begin   SendKey(AppWind, 'T');   SendKey(AppWind, 'e');   SendKey(AppWind, 's');   SendKey(AppWind, 't'); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin   if AppWind <> 0 then SendKey(AppWind, Key); end; end. -------------------------------------------------------------------------------- Ah,这个嘛......正好在《DELPHI新闻组学习笔记》上看到一篇： How to send [Alt]+[Down]?--------------发出一个Alt+Down 组合键 Re: Use the keybd_event API function to fake keyboard events. Note that each key down event needs a matching key up or you mess up the key state array.   keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), 0 , 0 );     // Alt down   keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0 ), 0 , 0 );     // down arrow key down   keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0 ), KEYEVENTF_KEYUP , 0 );  // down arrow key up   keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), KEYEVENTF_KEYUP , 0 );  // Alt key up 经本人试验，确实可行，另加补充： Ctrl: VK_CONTROL SHIFT:VK_SHIFT TAB:  VK_TAB 'A':  byte('A')                (98-6-8 22:28) -------------------------------------------------------------------------------- (* Converts a string of characters and key names to keyboard events and passes them to Windows. Example syntax: SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True); *) Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean; type   WBytes = array[0..pred(SizeOf(Word))] of Byte;   TSendKey = record     Name : ShortString;     VKey : Byte;   end; const   {Array of keys that SendKeys recognizes.   If you add to this list, you must be sure to keep it sorted alphabetically   by Name because a binary search routine is used to scan it.}   MaxSendKeyRecs = 41;   SendKeyRecs : array[1..MaxSendKeyRecs] of TSendKey =   (    (Name:'BKSP';            VKey:VK_BACK),    (Name:'BS';              VKey:VK_BACK),    (Name:'BACKSPACE';       VKey:VK_BACK),    (Name:'BREAK';           VKey:VK_CANCEL),    (Name:'CAPSLOCK';        VKey:VK_CAPITAL),    (Name:'CLEAR';           VKey:VK_CLEAR),    (Name:'DEL';             VKey:VK_DELETE),    (Name:'DELETE';          VKey:VK_DELETE),    (Name:'DOWN';            VKey:VK_DOWN),    (Name:'END';             VKey:VK_END),    (Name:'ENTER';           VKey:VK_RETURN),    (Name:'ESC';             VKey:VK_ESCAPE),    (Name:'ESCAPE';          VKey:VK_ESCAPE),    (Name:'F1';              VKey:VK_F1),    (Name:'F10';             VKey:VK_F10),    (Name:'F11';             VKey:VK_F11),    (Name:'F12';             VKey:VK_F12),    (Name:'F13';             VKey:VK_F13),    (Name:'F14';             VKey:VK_F14),    (Name:'F15';             VKey:VK_F15),    (Name:'F16';             VKey:VK_F16),    (Name:'F2';              VKey:VK_F2),    (Name:'F3';              VKey:VK_F3),    (Name:'F4';              VKey:VK_F4),    (Name:'F5';              VKey:VK_F5),    (Name:'F6';              VKey:VK_F6),    (Name:'F7';              VKey:VK_F7),    (Name:'F8';              VKey:VK_F8),    (Name:'F9';              VKey:VK_F9),    (Name:'HELP';            VKey:VK_HELP),    (Name:'HOME';            VKey:VK_HOME),    (Name:'INS';             VKey:VK_INSERT),    (Name:'LEFT';            VKey:VK_LEFT),    (Name:'NUMLOCK';         VKey:VK_NUMLOCK),    (Name:'PGDN';            VKey:VK_NEXT),    (Name:'PGUP';            VKey:VK_PRIOR),    (Name:'PRTSC';           VKey:VK_PRINT),    (Name:'RIGHT';           VKey:VK_RIGHT),    (Name:'SCROLLLOCK';      VKey:VK_SCROLL),    (Name:'TAB';             VKey:VK_TAB),    (Name:'UP';              VKey:VK_UP)   );   {Extra VK constants missing from Delphi's Windows API interface}   VK_NULL=0;   VK_SemiColon=186;   VK_Equal=187;   VK_Comma=188;   VK_Minus=189;   VK_Period=190;   VK_Slash=191;   VK_BackQuote=192;   VK_LeftBracket=219;   VK_BackSlash=220;   VK_RightBracket=221;   VK_Quote=222;   VK_Last=VK_Quote;   ExtendedVKeys : set of byte =   [VK_Up,    VK_Down,    VK_Left,    VK_Right,    VK_Home,    VK_End,    VK_Prior,  {PgUp}    VK_Next,   {PgDn}    VK_Insert,    VK_Delete]; const   INVALIDKEY = $FFFF {Unsigned -1};   VKKEYSCANSHIFTON = $01;   VKKEYSCANCTRLON = $02;   VKKEYSCANALTON = $04;   UNITNAME = 'SendKeys'; var   UsingParens, ShiftDown, ControlDown, AltDown, FoundClose : Boolean;   PosSpace : Byte;   I, L : Integer;   NumTimes, MKey : Word;   KeyString : String[20]; procedure DisplayMessage(Message : PChar); begin   MessageBox(0,Message,UNITNAME,0); end; function BitSet(BitTable, BitMask : Byte) : Boolean; begin   Result:=ByteBool(BitTable and BitMask); end; procedure SetBit(var BitTable : Byte; BitMask : Byte); begin   BitTable:=BitTable or Bitmask; end; Procedure KeyboardEvent(VKey, ScanCode : Byte; Flags : Longint); var   KeyboardMsg : TMsg; begin   keybd_event(VKey, ScanCode, Flags,0);   If (Wait) then While (PeekMessage(KeyboardMsg,0,WM_KEYFIRST, WM_KEYLAST, PM_REMOVE)) do begin     TranslateMessage(KeyboardMsg);     DispatchMessage(KeyboardMsg);   end; end; Procedure SendKeyDown(VKey: Byte; NumTimes : Word; GenUpMsg : Boolean); var   Cnt : Word;   ScanCode : Byte;   NumState : Boolean;   KeyBoardState : TKeyboardState; begin   If (VKey=VK_NUMLOCK) then begin     NumState:=ByteBool(GetKeyState(VK_NUMLOCK) and 1);     GetKeyBoardState(KeyBoardState);     If NumState then KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] and not 1)     else KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] or 1);     SetKeyBoardState(KeyBoardState);     exit;   end;   ScanCode:=Lo(MapVirtualKey(VKey,0));   For Cnt:=1 to NumTimes do     If (VKey in ExtendedVKeys)then begin       KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY);       If (GenUpMsg) then         KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)     end else begin       KeyboardEvent(VKey, ScanCode, 0);       If (GenUpMsg) then KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);     end; end; Procedure SendKeyUp(VKey: Byte); var   ScanCode : Byte; begin   ScanCode:=Lo(MapVirtualKey(VKey,0));   If (VKey in ExtendedVKeys)then     KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY and KEYEVENTF_KEYUP)   else KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP); end; Procedure SendKey(MKey: Word; NumTimes : Word; GenDownMsg : Boolean); begin   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyDown(VK_SHIFT,1,False);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyDown(VK_CONTROL,1,False);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyDown(VK_MENU,1,False);   SendKeyDown(Lo(MKey), NumTimes, GenDownMsg);   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyUp(VK_SHIFT);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyUp(VK_CONTROL);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyUp(VK_MENU); end; {Implements a simple binary search to locate special key name strings} Function StringToVKey(KeyString : ShortString) : Word; var   Found, Collided : Boolean;   Bottom, Top, Middle : Byte; begin   Result:=INVALIDKEY;   Bottom:=1;   Top:=MaxSendKeyRecs;   Found:=false;   Middle:=(Bottom+Top) div 2;   Repeat     Collided:=((Bottom=Middle) or (Top=Middle));     If (KeyString=SendKeyRecs[Middle].Name) then begin        Found:=True;        Result:=SendKeyRecs[Middle].VKey;     end else begin        If (KeyString>SendKeyRecs[Middle].Name) then Bottom:=Middle        else Top:=Middle;        Middle:=(Succ(Bottom+Top)) div 2;     end;   Until (Found or Collided);   If (Result=INVALIDKEY) then DisplayMessage('Invalid Key Name'); end; procedure PopUpShiftKeys; begin   If (not UsingParens) then begin     If ShiftDown then SendKeyUp(VK_SHIFT);     If ControlDown then SendKeyUp(VK_CONTROL);     If AltDown then SendKeyUp(VK_MENU);     ShiftDown:=false;     ControlDown:=false;     AltDown:=false;   end; end; begin   AllocationSize:=MaxInt;   Result:=false;   UsingParens:=false;   ShiftDown:=false;   ControlDown:=false;   AltDown:=false;   I:=0;   L:=StrLen(SendKeysString);   If (L>AllocationSize) then L:=AllocationSize;   If (L=0) then Exit;   While (I<L) do begin     case SendKeysString of     '(' : begin             UsingParens:=True;             Inc(I);           end;     ')' : begin             UsingParens:=False;             PopUpShiftKeys;             Inc(I);           end;     '%' : begin              AltDown:=True;              SendKeyDown(VK_MENU,1,False);              Inc(I);           end;     '+' :  begin              ShiftDown:=True;              SendKeyDown(VK_SHIFT,1,False);              Inc(I);            end;     '^' :  begin              ControlDown:=True;              SendKeyDown(VK_CONTROL,1,False);              Inc(I);            end;     '{' : begin             NumTimes:=1;             If (SendKeysString[Succ(I)]='{') then begin               MKey:=VK_LEFTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I,3);               Continue;             end;             KeyString:='';             FoundClose:=False;             While (I<=L) do begin               Inc(I);               If (SendKeysString='}') then begin                 FoundClose:=True;                 Inc(I);                 Break;               end;               KeyString:=KeyString+Upcase(SendKeysString);             end;             If (Not FoundClose) then begin                DisplayMessage('No Close');                Exit;             end;             If (SendKeysString='}') then begin               MKey:=VK_RIGHTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I);               Continue;             end;             PosSpace:=Pos(' ',KeyString);             If (PosSpace<>0) then begin                NumTimes:=StrToInt(Copy(KeyString,Succ(PosSpace),Length(KeyString)-PosSpace));                KeyString:=Copy(KeyString,1,Pred(PosSpace));             end;             If (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])             else MKey:=StringToVKey(KeyString);             If (MKey<>INVALIDKEY) then begin               SendKey(MKey,NumTimes,True);               PopUpShiftKeys;               Continue;             end;           end;     '~' : begin             SendKeyDown(VK_RETURN,1,True);             PopUpShiftKeys;             Inc(I);           end;     else  begin              MKey:=vkKeyScan(SendKeysString);              If (MKey<>INVALIDKEY) then begin                SendKey(MKey,1,True);                PopUpShiftKeys;              end else DisplayMessage('Invalid KeyName');              Inc(I);           end;     end;   end;   Result:=true;   PopUpShiftKeys; end; -------------------------------------------------------------------------------- 问题提出/摘要: 当使用Enter键完成Tab键功能时，如何避免Windows产生的Beep声音？   回答:   新代码的目标是当在TEdit等控件中按Enter键时避免Windows产生的Beep声音。     注意：如果你是Delphi初学者，下面的第一个过程必须手工地在form类中正确声明才能使用。     procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);   begin   if key = #13 then key := #0;   end;     procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState);   var   ACtrl: TWinControl;   k: TKeyPressEvent;   begin     if key = 13 then   begin   ACtrl := ActiveControl;   if ACtrl is TCustomMemo then exit;     if ACtrl is TEdit then   begin   if assigned(TEdit(ACtrl).onKeyPress) then   k:= TEdit(ACtrl).OnKeyPress;   TEdit(ACtrl).OnKeyPress := EditKeyPress;   end;     repeat   ACtrl:= FindNextControl(ACtrl,true,true,false);   until (ACtrl is TCustomEdit) or   (ACtrl is TCustomComboBox) or   (ACtrl is TCustomListBox) or   (ACtrl is TCustomCheckBox) or   (ACtrl is TRadioButton);     if ACtrl is TEdit then   begin   if assigned(K) then   TEdit(ACtrl).OnKeyPress := K;   end;     ACtrl.SetFocus ;   end;     end;

dongberlin · 2001-12-06

函数功能：该函数合成一次击键事件。系统可使用这种合成的击键事件来产生WM_KEYUP或 WM_KEYDOWN消息，键盘驱动程序的中断处理程序调用keybd_event函数。在Windows NT中 该函数己被使用Sendlhput来替代它。     函数原型；VOID keybd_event（BYTE bVk，BYTE bScan，DWORD dwFlags，DWORD     dwExtralnfo）；     参数：     bVk：定义一个虚据拟键码。键码值必须在1～254之间。     bScan:定义该键的硬件扫描码。     dwFlags:定义函数操作的名个方面的一个标志位集。应用程序可使用如下一些预定义 常数的组合设置标志位。     KEYEVENTF_EXETENDEDKEY：若指定该值，则扫描码前一个值为OXEO（224）的前缀 字节。DEYEVENTF_KEYUP：若指定该值，该键将被释放；若未指定该值，该键交被接下。 dwExtralnfo：定义与击键相关的附加的32位值。     返回值：该函数无返回值。     备注：尽管keybd_event传递一个与OEM相关的硬件扫描码给系统，但应用程序不能用 此扫描码。系统在内部将扫描码转换成虚拟键码，并且在传送给应用程序前清除键码的 UP/down位。应用程序可以摸拟PRINTSCREEN键的按下来获得一个屏幕快照，并把它存放到 剪切板中。若要做到这一点，则要将keybd_event的bVk参数置为VK_SNAPSHOT,bScan参数置 为0（用以获得全屏快照）或hScan置为1（仅获得活动窗口的快照）。 Windows CE：WindowsCE支持dwFlags参数附加的标志位。即使用KEYEVENTF_SILENT标志 模拟击键，而不产生敲击的声音。Windows CE不支持KEYEVENTF_EXTENDEDKEY标志。

203010 · 2001-12-06

haha，在Delphi安装盘的Info目录里有一个SendKeys，里面有相关的东西，好用噢

dreamdelphi · 2001-12-07

谢谢各位！

dreamdelphi · 2001-12-18

多人接受答案了。

在Delphi中用什么方法可以实现模拟键盘输入，就象微软ABC输入法中的图形键盘一样。(100分)

dreamdelphi

Unregistered / Unconfirmed

dongberlin

Unregistered / Unconfirmed

dreamdelphi

Unregistered / Unconfirmed

白海森

Unregistered / Unconfirmed

dongberlin

Unregistered / Unconfirmed

203010

Unregistered / Unconfirmed

dreamdelphi

Unregistered / Unconfirmed

dreamdelphi

Unregistered / Unconfirmed

Similar threads