Asagıdaki Kodlar Klavyeden Kac Numaralı Tusa Basıldıgını hex ve int olarak verir

Bunu icin formumuza şunları ekleyin;

1 tane Timer (intervali 100 olsun)

1 tane Edit

1 Tane Listbox

1 tane rich edit koyunuz

bunu karaktere cevirmek icin o tusun degerini bulmalısınız bunu char komutu ile stringe cevirin.Kolay Gelsin Umarım Işine yarar....

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ListBox1: TListBox;
RichEdit1: TRichEdit;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private

public

end;
procedure Out32(wAddr:word;bOut:byte); stdcall; external 'inpout32.dll'
function Inp32(wAddr:word):integer; stdcall; external 'inpout32.dll'
var
Form1: TForm1;
x:integer;
implementation



procedure TForm1.Button1Click(Sender: TObject);
begin
Out32($378,$53);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
adr,y:integer;
begin
adr:=$60;
y:=Inp32(adr);
if yx then
begin
RichEdit1.Text:=RichEdit1.Text+' '+inttostr(y);;
listbox1.Items.Add(inttohex(y,4));
x:=y;
end;

end;
end.
__________________