如何记录下敲击了那些键并记录下来做为日志。(100分)

在作银行系统中需要记录下每位操作员对键盘作过一些什么操作并记下他们敲过那些键?

键盘HOOK

能说的再具体些吗？时再是太菜了。

unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br>&nbsp; Dialogs, AppEvnts;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; ApplicationEvents1: TApplicationEvents;<br>&nbsp; &nbsp; procedure ApplicationEvents1Message(var Msg: tagMSG;<br>&nbsp; &nbsp; &nbsp; var Handled: Boolean);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>var<br>&nbsp; Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;<br>&nbsp; var Handled: Boolean);<br>begin<br>if &nbsp;Msg.message =wm_keydown then<br>begin<br>end;<br>if &nbsp;Msg.message =WM_KEYUP then<br>begin<br>end;<br>if &nbsp;Msg.message =WM_CHAR then<br>begin<br>end;<br>end;<br><br>end.<br>

object Form1: TForm1<br>&nbsp; Left = 192<br>&nbsp; Top = 107<br>&nbsp; Width = 696<br>&nbsp; Height = 480<br>&nbsp; Caption = 'Form1'<br>&nbsp; Color = clBtnFace<br>&nbsp; Font.Charset = DEFAULT_CHARSET<br>&nbsp; Font.Color = clWindowText<br>&nbsp; Font.Height = -11<br>&nbsp; Font.Name = 'MS Sans Serif'<br>&nbsp; Font.Style = []<br>&nbsp; OldCreateOrder = False<br>&nbsp; PixelsPerInch = 96<br>&nbsp; TextHeight = 13<br>&nbsp; object ApplicationEvents1: TApplicationEvents<br>&nbsp; &nbsp; OnMessage = ApplicationEvents1Message<br>&nbsp; &nbsp; Left = 264<br>&nbsp; &nbsp; Top = 144<br>&nbsp; end<br>end

多人接受答案了。