模拟发送SCRLK键 ( 积分: 100 )

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-30

• #1

我想写个过程，用于程序不停的模拟SCRLk按键，从而使键盘上面的SCRLK灯一闪一闪。

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-30

• #2

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Keybd_Event(VK_SCROLL, 0, 0, 0);
Keybd_Event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0);
end;

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-30

• #3

接受答案了.