ROCKEY是什么？ (8分)

看不懂，ROCKEY是什么，$83ef是什么，请高手讲解一下，谢谢

procedure TForm1.Timer1Timer(Sender: TObject);
var
p1,p2,p3,p4,rHandle,err:word;
lp1,lp2:longword;
Buf:Array[0..16] of byte;
begin
p1:=$83ef;
p2:=$4cb3;
err:=Rockey(1,rHandle,lP1,lP2,P1,P2,P3,P4,Buf[0]);
if err=0 then
err:=Rockey(3,rHandle,lp1,lp2,p1,p2,p3,p4,Buf[0]);
lp2:=963;
……………………

delphi的help里面没有

rockey 应该是一个自定义的函数
$83ef 表示 16进制的 83EF

你从哪里弄到的程序，再仔细看看吧

多人接受答案了。