向某个程序发送按键问题 ( 积分: 50 )

beyondup · 2005-06-26

我想给某个程序发送F1键(就是等于在所谓的某个程序中按下F1)怎么没用呀？？ 我是这么写的：    Sendmessage(Hw_Long,WM_KEYDOWN,VK_F1,-1); 后来我以为是不完善加上了Sendmessage(Hw_Long,WM_KEYUP,VK_F1,-1); 还是没用，请高手指点迷津，谢谢。

beyondup · 2005-06-26

我想给某个程序发送F1键(就是等于在所谓的某个程序中按下F1)怎么没用呀？？ 我是这么写的：    Sendmessage(Hw_Long,WM_KEYDOWN,VK_F1,-1); 后来我以为是不完善加上了Sendmessage(Hw_Long,WM_KEYUP,VK_F1,-1); 还是没用，请高手指点迷津，谢谢。

caoweizhong123 · 2005-06-26

自定义消息application.   =...

zhengdehei · 2005-06-26

Sendmessage(Hw_Long,WM_KEYDOWN or WM_KEYUP,VK_F1,0); 相当于按一次F1 如果不行，换 postmessage 试试

江南草 · 2005-06-26

首先要确认hw_long有效，其次要确认hw_long能对F1有反应。

独帅 · 2005-07-19

最后一个参数设为0试试呢：  SendMessage(h, WM_KEYDOWN, VK_F1, 0);  SendMessage(h, WM_KEYUP,   VK_F1, 0);

hb_wshsh · 2005-07-20

sendmessage等估计解决不了问题，最好使用键盘钩子，我这里有个例子完全可以实现： unit SendKey; interface uses SysUtils, Windows, Messages, Classes, KeyDefs; type  { Error codes }  TSendKeyError = (sk_None, sk_FailSetHook, sk_InvalidToken, sk_UnknownError,                   sk_AlreadyPlaying);  { first vk code to last vk code }  TvkKeySet = set of vk_LButton..vk_Scroll;  { exceptions }  ESendKeyError = class(Exception);  ESKSetHookError = class(ESendKeyError);  ESKInvalidToken = class(ESendKeyError);  ESKAlreadyPlaying = class(ESendKeyError); function SendKeys(S: String): TSendKeyError; procedure WaitForHook; procedure StopPlayback; var  Playing: Boolean = False; implementation uses Forms; type  { a TList descendant that know how to dispose of its contents }  TMessageList = class(TList)  public    destructor Destroy; override;  end; const  { valid "sys" keys }  vkKeySet: TvkKeySet = [Ord('A')..Ord('Z'), vk_Menu, vk_F1..vk_F12]; destructor TMessageList.Destroy; var  i: longint; begin  { deallocate all the message records before discarding the list }  for i := 0 to Count - 1 do    Dispose(PEventMsg(Items));  inherited Destroy; end; var  { variables global to the DLL }  MsgCount: word = 0;  MessageBuffer: TEventMsg;  HookHandle: hHook = 0;  MessageList: TMessageList = Nil;  AltPressed, ControlPressed, ShiftPressed: Boolean; procedure StopPlayback; { Unhook the hook, and clean up } begin  { if Hook is currently active, then unplug it }  if Playing then    UnhookWindowsHookEx(HookHandle);  MessageList.Free;  Playing := False; end; function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall; { This is the JournalPlayback callback function.  It is called by Windows } { when Windows polls for hardware events.  The code parameter indicates what } { to do. } begin  case Code of    hc_Skip: begin    { hc_Skip means to pull the next message out of our list. If we }    { are at the end of the list, it's okay to unhook the JournalPlayback }    { hook from here. }      { increment message counter }      inc(MsgCount);      { check to see if all messages have been played }      if MsgCount >= MessageList.Count then        StopPlayback      else      { copy next message from list into buffer }      MessageBuffer := TEventMsg(MessageList.Items[MsgCount]^);      Result := 0;    end;    hc_GetNext: begin    { hc_GetNext means to fill the wParam and lParam with the proper }    { values so that the message can be played back.  DO NOT unhook }    { hook from within here.  Return value indicates how much time until }    { Windows should playback message.  We'll return 0 so that it's }    { processed right away. }      { move message in buffer to message queue }      PEventMsg(lParam)^ := MessageBuffer;      Result := 0  { process immediately }    end    else      { if Code isn't hc_Skip or hc_GetNext, then call next hook in chain }      Result := CallNextHookEx(HookHandle, Code, wParam, lParam);  end; end; procedure StartPlayback; begin  MessageBuffer := TEventMsg(MessageList.Items[0]^);  MsgCount := 0;  AltPressed := False;  ControlPressed := False;  ShiftPressed := False;  HookHandle := SetWindowsHookEx(wh_JournalPlayback, Play, hInstance, 0);  if HookHandle = 0 then    raise ESKSetHookError.Create('Couldn''t set hook')  else    Playing := True; end; procedure MakeMessage(vKey: byte; M: Cardinal); var  E: PEventMsg; begin  New(E);  with E^ do begin    message := M;    paramL := vKey;    paramH := MapVirtualKey(vKey, 0);    time := GetTickCount;    hwnd := 0;  end;  MessageList.Add(E); end; procedure KeyDown(vKey: byte); begin  if AltPressed and (not ControlPressed) and  (vKey in vkKeySet) then    MakeMessage(vKey, wm_SysKeyDown)  else    MakeMessage(vKey, wm_KeyDown); end; procedure KeyUp(vKey: byte); begin  if AltPressed and (not ControlPressed) and (vKey in vkKeySet) then    MakeMessage(vKey, wm_SysKeyUp)  else    MakeMessage(vKey, wm_KeyUp); end; procedure SimKeyPresses(VKeyCode: Word); begin  if AltPressed then    KeyDown(vk_Menu);  if ControlPressed then    KeyDown(vk_Control);  if (((Hi(VKeyCode) and 1) <> 0) and (not ControlPressed)) or ShiftPressed then    KeyDown(vk_Shift);  KeyDown(Lo(VKeyCode));  KeyUp(Lo(VKeyCode));  if (((Hi(VKeyCode) and 1) <> 0) and (not ControlPressed)) or ShiftPressed then    KeyUp(vk_Shift);  if ShiftPressed then begin    ShiftPressed := False;  end;  if ControlPressed then begin    KeyUp(vk_Control);    ControlPressed := False;  end;  if AltPressed then begin    KeyUp(vk_Menu);    AltPressed := False;  end; end; procedure ProcessKey(S: String); var  KeyCode: word;  Key: byte;  index: integer;  Token: TKeyString; begin  index := 1;  repeat    case S[index] of      KeyGroupOpen : begin        Token := '';        inc(index);        while S[index] <> KeyGroupClose do begin          Token := Token + S[index];          inc(index);          if (Length(Token) = 7) and (S[index] <> KeyGroupClose) then            raise ESKInvalidToken.Create('No closing brace');        end;        if not FindKeyInArray(Token, Key) then          raise ESKInvalidToken.Create('Invalid token');        SimKeyPresses(MakeWord(Key, 0));      end;      AltKey : begin        AltPressed := True;      end;      ControlKey : begin        ControlPressed := True;      end;      ShiftKey : begin        ShiftPressed := True;      end;      else begin        KeyCode := vkKeyScan(S[index]);        SimKeyPresses(KeyCode);      end;    end;    inc(index);  until index > Length(S); end; procedure WaitForHook; begin  repeat Application.ProcessMessages until not Playing; end; function SendKeys(S: String): TSendKeyError; begin  Result := sk_None;  try    if Playing then raise ESKAlreadyPlaying.Create('');    MessageList := TMessageList.Create;    ProcessKey(S);    StartPlayback;  except    on E:ESendKeyError do begin      MessageList.Free;      if E is ESKSetHookError then        Result := sk_FailSetHook      else if E is ESKInvalidToken then        Result := sk_InvalidToken      else if E is ESKAlreadyPlaying then        Result := sk_AlreadyPlaying;    end    else      Result := sk_UnknownError;  end; end; end. －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ unit Keydefs; interface uses Windows; const  MaxKeys = 24;  ControlKey = '^';  AltKey = '@';  ShiftKey = '~';  KeyGroupOpen = '{';  KeyGroupClose = '}'; type  TKeyString = String[7];  TKeyDef = record    Key: TKeyString;    vkCode: Byte;  end; const  KeyDefArray : array[1..MaxKeys] of TKeyDef = (    (Key: 'F1';     vkCode: vk_F1),    (Key: 'F2';     vkCode: vk_F2),    (Key: 'F3';     vkCode: vk_F3),    (Key: 'F4';     vkCode: vk_F4),    (Key: 'F5';     vkCode: vk_F5),    (Key: 'F6';     vkCode: vk_F6),    (Key: 'F7';     vkCode: vk_F7),    (Key: 'F8';     vkCode: vk_F8),    (Key: 'F9';     vkCode: vk_F9),    (Key: 'F10';    vkCode: vk_F10),    (Key: 'F11';    vkCode: vk_F11),    (Key: 'F12';    vkCode: vk_F12),    (Key: 'INSERT'; vkCode: vk_Insert),    (Key: 'DELETE'; vkCode: vk_Delete),    (Key: 'HOME';   vkCode: vk_Home),    (Key: 'END';    vkCode: vk_End),    (Key: 'PGUP';   vkCode: vk_Prior),    (Key: 'PGDN';   vkCode: vk_Next),    (Key: 'TAB';    vkCode: vk_Tab),    (Key: 'ENTER';  vkCode: vk_Return),    (Key: 'BKSP';   vkCode: vk_Back),    (Key: 'PRTSC';  vkCode: vk_SnapShot),    (Key: 'SHIFT';  vkCode: vk_Shift),    (Key: 'ESCAPE'; vkCode: vk_Escape)); function FindKeyInArray(Key: TKeyString; var Code: Byte): Boolean; implementation uses SysUtils; function FindKeyInArray(Key: TKeyString; var Code: Byte): Boolean; { function searches array for token passed in Key, and returns the } { virtual key code in Code. } var  i: word; begin  Result := False;  for i := Low(KeyDefArray) to High(KeyDefArray) do    if UpperCase(Key) = KeyDefArray.Key then begin      Code := KeyDefArray.vkCode;      Result := True;      Break;    end; end; end. for example: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, SendKey,KeyDefs; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure FormKeyDown(Sender: TObject; var Key: Word;      Shift: TShiftState);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  SendKeys('{F1}'); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if Key=112 then ShowMessage('F1'); end; end. 注意：form1.keypreview:=true; 如果向其他程序发送：    H := FindWindow('Caption', nil);          // find window    if SetForegroundWindow(H) then            // bring it to front      SendKeys('{F1}');

安静的冥想 · 2005-07-23

你用keybd_event（）试试看吧，应该可以的。第二个参数设置成1，表示对当前窗口发送键盘按钮。这个API本身就是用来模拟键盘事件的

apacheii · 2005-07-25

向不属于一个进程的程序发送消息最好用PostMessage，这个函数的功能是把指定的消息放到某个进程的消息队列去，不等程序处理就直接返回。我写过一个自动应答的程序就是用这个方法向别的程序发送回车键WORD值“13”。 F1键的WORD值是112。 另：F1键是系统定义的“帮助”功能键，如果你只是想打开那个程序的“帮助”，可以直接试试发送“WM_HELP”消息。

beyondup · 2005-08-21

接受答案了.

向某个程序发送按键问题 ( 积分: 50 )

beyondup

Unregistered / Unconfirmed

beyondup

Unregistered / Unconfirmed

caoweizhong123

Unregistered / Unconfirmed

zhengdehei

Unregistered / Unconfirmed

江南草

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

hb_wshsh

Unregistered / Unconfirmed

安静的冥想

Unregistered / Unconfirmed

apacheii

Unregistered / Unconfirmed

beyondup

Unregistered / Unconfirmed

Similar threads