VB中的sendkeys函数在DELPHI中如何实现？(50分)

runmark · 2003-06-07

VB中的sendkeys函数在DELPHI中如何实现？  当然，一种方法是D5安装包里有一个snkey32.pas,可以实现。但是我现在我无法得到。 第二种方法是使用postmessage()api函数，但是无法发送组合键，例如：shift+home 请高手赐教。最好是有代码实例。多谢！

寻呼机 · 2003-06-07

var      lpKeyState :TKeyboardState;    begin      GetKeyboardState(lpKeyState);      lpKeyState[VK_CONTROL] :=$80;      SetKeyboardState(lpKeyState);      PostMessage(ListBox1.handle,WM_KEYDOWN,VK_END,0);      ListBox1.SetFocus;      lpKeyState[VK_SHIFT] :=$01;      lpKeyState[VK_CONTROL] :=$01;      SetKeyboardState(lpKeyState);    end;

thx1180 · 2003-06-07

unit SendKey; interface uses   Windows, Messages, SysUtils, Classes; var   Playing: Boolean; function SendKeys(S: string): Boolean; procedure StopPlayback; implementation uses Keydefs; type   TvkKeySet = set of vk_LButton..vk_Scroll;     TMessageList = class(TList)   public     destructor Destroy; override;   end; const   vkKeySet: TvkKeySet = [Ord('A')..Ord('Z'), vk_Menu, vk_F1..vk_F12]; { TMessageList } destructor TMessageList.Destroy; var   I: Longint; begin   for I := 0 to Count - 1 do     Dispose(PEventMsg(Items));   inherited Destroy; end; var //  RecordingPaused: Boolean;   PlayCount: WORD;   PlayBuffer: TEventMsg;   PlayHandle: hHook;   PlayList: TMessageList;   AltPressed, ControlPressed, ShiftPressed: Boolean; function KeyRecord(Code: Integer; wParam, lParam: Longint): Longint; stdcall; begin   if Code = HC_ACTION then   begin     Result := 0;   end   else     Result := CallNextHookEx(RecHandle, Code, wParam, lParam); end; function Play(Code: Integer; wParam, lParam: Longint): Longint; stdcall; begin   case Code of     HC_SKIP:       begin         Inc(PlayCount);         if PlayCount >= PlayList.Count then //StopPlayback         else PlayBuffer := TEventMsg(PlayList.Items[PlayCount]^);         Result := 0;       end;     HC_GETNEXT:       begin         PEventMsg(lParam)^ := PlayBuffer;         Result := 0       end     else       Result := CallNextHookEx(PlayHandle, Code, wParam, lParam);   end; end; procedure StartPlayback; begin   PlayBuffer := TEventMsg(PlayList.Items[0]^);   PlayCount := 0;   AltPressed := False;   ControlPressed := False;   ShiftPressed := False;   PlayHandle := SetWindowsHookEx(wh_JournalPlayback, Play, hInstance, 0);   if PlayHandle = 0 then     raise Exception.Create('Failed to set hook!');   Playing := True; end; procedure StopPlayback; begin   if Playing then     UnhookWindowsHookEx(PlayHandle);   PlayList.Free;   Playing := False; 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;   PlayList.Add(E); end; procedure GenKeyDown(vKey: Byte); begin   if AltPressed and (not ControlPressed) and (vKey in vkKeySet) then     MakeMessage(vKey, WM_SYSKEYDOWN)   else     MakeMessage(vKey, WM_KEYDOWN); end; procedure GenKeyUp(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 GenKeyDown(vk_Menu);   if ControlPressed then GenKeyDown(vk_Control);   if (((Hi(VKeyCode) and 1) <> 0) and (not ControlPressed))   or ShiftPressed then     GenKeyDown(vk_Shift);   GenKeyDown(Lo(VKeyCode));   GenKeyUp(Lo(VKeyCode));   if (((Hi(VKeyCode) and 1) <> 0) and (not ControlPressed))   or ShiftPressed then     GenKeyUp(vk_Shift);   if ShiftPressed then ShiftPressed := False;   if ControlPressed then   begin     GenKeyUp(vk_Control);     ControlPressed := False;   end;   if AltPressed then   begin     GenKeyUp(vk_Menu);     AltPressed := False;   end; end; procedure ProcessPlayKey(S: string); var   KeyCode: Word;   Key: Byte;   I: Integer;   Token: TKeyString; begin   I := 1;   repeat     case S of       KeyGroupOpen:         begin           Token := '';           Inc(I);           while S <> KeyGroupClose do begin             Token := Token + S;             Inc(I);             if (Length(Token) = 7) and (S <> KeyGroupClose) then               raise Exception.Create('No closing brace');           end;           if not FindKeyInArray(Token, Key) then             raise Exception.Create('Invalid token');           SimKeyPresses(MakeWord(Key, 0));         end;       AltKey: AltPressed := True;       ControlKey: ControlPressed := True;       ShiftKey: ShiftPressed := True;       else begin         KeyCode := vkKeyScan(S);         SimKeyPresses(KeyCode);       end;     end;     Inc(I);   until I > Length(S); end; function SendKeys(S: string): Boolean; begin   Result := False;   try     if Playing then Exit;     PlayList := PlayList.Create;     ProcessPlayKey(S);     StartPlayback;     Result := True;   except   end; end; { procedure WaitForPlay; begin   repeat     Application.ProcessMessages;   until not Playing; end;} end.

runmark · 2003-06-26

多谢两位的帮助. 以后还要多多指教.

VB中的sendkeys函数在DELPHI中如何实现？(50分)

runmark

Unregistered / Unconfirmed

寻呼机

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

runmark

Unregistered / Unconfirmed

Similar threads

VB中的sendkeys函数 在DELPHI中如何实现？(50分)

runmark

Unregistered / Unconfirmed

寻呼机

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

runmark

Unregistered / Unconfirmed

Similar threads

VB中的sendkeys函数在DELPHI中如何实现？(50分)