资 源 简 介
程序 Send(x: string);
开始
form1。Memo1.Lines.Add(x)
结束 ；
程序 TForm1.Timer1Timer(Sender: TObject);
//begin
//if GetAsyncKeyState(Ord("A")) =-32767 然后 send("A") ；
//if GetAsyncKeyState(Ord("B")) =-32767 然后 send("B") ；
var X，y:integer ；
f:char ；
str:string ；
开始
X： = 0 到 255 做
开始
