delphi 如何使用SendMessage发送后台组合键消息(Ctrl+XXX)


本文整理自网络,侵删。

 unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
procedure FormKeyPress(SenderTObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyHandle : hWnd;

implementation

{$R *.DFM}

procedure SendCtrl(H: HWnd; Down: Boolean);
var
vKey, ScanCode : Word;
lParam: longint;
begin
vKey:= $11;
ScanCode:= MapVirtualKey(vKey, 0);
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 : Word;
lParam, ConvKey: longint;
Ctrl: boolean;
begin
ConvKey:= OemKeyScan(ord(Key));
Ctrl:= (ConvKey and $00040000) <> 0;
ScanCode:= ConvKey and $000000FF or $FF00;
vKey:= ord(Key);
lParam:= longint(ScanCode) shl 16 or 1;
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 Ctrl then SendCtrl(H, false);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if MyHandle <> 0 then SendKey(MyHandle, Key);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyHandle := FindWindowEx(FindWindow('NotePad'nil), 0'Edit'nil);
end;

end.
运行后在窗体随便按键你会发现记事本里就是你所按键的内容!
可根据自行需要自己修改代码,这里就不列出了

相关阅读 >>

Delphi xe10 android 界面设计-个人心得

Delphi 测试字符串写入类: tstringwriter

Delphi登陆验证方法

Delphi 简单的软件注册demo

Delphi 检查输入的ip地址串是否合法

Delphi 获取文件crc和md5

Delphi wmi 取显卡gpu信息

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi int64:是Delphi中最大的整数,64位有符号整数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...