你可以在Application.OnMessage事件中捕捉所有由键盘/鼠标触发的消息（在Messages单元），
然后取出该消息记录相应字段的值写到一个文本文件中。因为每一种消息的记录定义差别可能
很大，所以对于不同的消息记录的字段信息也一定是不一样的。你可以到Messages单元查看
一下所有由鼠标/键盘触发的消息记录的格式再决定如何在文件里记录每一条消息的相关信息。
举一个Delphi自带的例子吧，你可以把它对消息过滤的代码转换为在文本文件里记录消息信息
的代码。工作量比较大，就不写了。你自己编码吧。：）
const
WM_FILEREADY = WM_USER + 2000;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_FILEREADY then
begin
Memo1.Lines.LoadFromFile(StrPas(PChar(Msg.lParam)));
Handled := True;
end;
{ for all other messages, Handled remains False }
{ so that other message handlers can respond }
end;
