SendMessage()问题(100分)

  • 主题发起人 主题发起人 我是一只小小鸟
  • 开始时间 开始时间

我是一只小小鸟

Unregistered / Unconfirmed
GUEST, unregistred user!
已经知道 窗口 handle ,如何使用SendMessage()发键盘消息.模拟按下 ` 健
 
sendmessage(handle,WM_KEYDOWN,.....)具体的要查资料~~~
 
[:(],就是不想查资料.
 
http://www.delphibbs.com/keylife/iblog_show.asp?xid=20087
 
onkeypress()
if key := ` 键 then
Sendmessage(handle,WM_KeyDown,0,0)
 
var
s:string;
begin
S:='';
while Length(s)<10000 do
s:=S+'`';
SendMessage(Memo1.Handle,WM_SETTEXT,0,DWord(PChar(S)));
end;
 
onkeypress
if key := ` 键 then
Sendmessage(handle,WM_KeyDown,0,0);
 
后退
顶部