问题九:如何将用户的鼠标输入和键盘输入进行记录 新建一个Application 放一个Memo 和 Timer ,Timer的Interval设置为1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Line: String; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var i,k:Integer; s:String; begin for i:=8 To 222 do begin if GetAsyncKeyState(i)=-32767 then begin k:=GetKeyState(VK_SHIFT); case i of 8 : s:=s+'[Back]'; 9 : s:=s+'[Tab]'; 13 : s:=s+'[Enter]'; 17 : s:=s+'[Ctrl]'; 27 : s:=s+'[Esc]'; 32 :s:=s+' '; 33 : s := s + '[Page Up]'; 34 : s := s + '[Page Down]'; 35 : s := s + '[End]'; 36 : s := s + '[Home]'; 37 : s := s + '[Left]'; 38 : s := s + '[Up]'; 39 : s := s + '[Right]'; 40 : s := s + '[Down]'; 44 : s := s + '[Print Screen]'; 45 : s := s + '[Insert]'; 46 : s := s + '[Del]'; 145 : s := s + '[Scroll Lock]'; /......>>