#pas
procedure THIKeyHook.Init;
type
  SetHook = procedure(Handle:HWND); cdecl;
begin
   if FileExists('Hook.dll') then
    FID := LoadLibrary('Hook.dll')
   else if FileExists('Plug\Hook.dll') then
    FID := LoadLibrary('Plug\Hook.dll')
   else if FileExists(GetStartDir + 'Hook.dll') then
    FID := LoadLibrary(PChar(GetStartDir + 'Hook.dll'))
   else FID := 0;

  // _debug(int2str(Parent.Handle));
   if FID > 0 then
     SetHook( GetProcAddress(FID,'SetHook') )(Parent.GetWindowHandle)
   else MessageBox(Parent.Handle,'File Hook.dll not found!','KeyHook error',MB_OK);
end;