library DisableKB;

uses
  Forms,
  Windows,
  Messages,
  HookCommon in 'HookCommon.pas';

{$J+}
const
  Hook: HHook = 0;
  WH_KEYBOARD_LL = 13;
{$J-}

{$R *.res}

function HookProc(nCode: Integer; MsgID: WParam; Data: LParam): LResult; stdcall;
begin
    Result := -1;
end;

procedure DisableKB; stdcall;
begin
  if Hook = 0 then Hook:=SetWindowsHookEx(WH_KEYBOARD_LL,@HookProc,HInstance,0);
end;

procedure EnableKB; stdcall;
begin
  UnhookWindowsHookEx(Hook);
  Hook:=0;
end;

exports
  DisableKB, EnableKB;

begin
end.

unit HookCommon;

interface

uses Windows;

procedure DisableKB; stdcall;
procedure EnableKB; stdcall;

implementation

procedure DisableKB; stdcall; external 'disablekb.DLL';
procedure EnableKB; stdcall; stdcall; external 'disablekb.DLL';

initialization
end.

library AntiCADGina;
uses
  Windows;

const
  MSGina='MSGina.dll';
  MutexName='Global\4F3636FB-3620-478B-B5CE-9F1B158ED6F1';

procedure WlxActivateUserShell;external MSGina;
procedure WlxDisconnectNotify;external MSGina;
procedure WlxDisplayLockedNotice;external MSGina;
procedure WlxDisplaySASNotice;external MSGina;
procedure WlxDisplayStatusMessage;external MSGina;
procedure WlxGetConsoleSwitchCredentials;external MSGina;
procedure WlxGetStatusMessage;external MSGina;
procedure WlxInitialize;external MSGina;
procedure WlxIsLockOk;external MSGina;
procedure WlxIsLogoffOk;external MSGina;
function WlxLoggedOnSAS(pWlxContext:Pointer;dwSasType:DWORD;pReserved:Pointer):Integer; stdcall;external MSGina;
procedure WlxLoggedOutSAS;external MSGina;
procedure WlxLogoff;external MSGina;
procedure WlxNegotiate;external MSGina;
procedure WlxNetworkProviderLoad;external MSGina;
procedure WlxReconnectNotify;external MSGina;
procedure WlxRemoveStatusMessage;external MSGina;
procedure WlxScreenSaverNotify;external MSGina;
procedure WlxShutdown;external MSGina;
procedure WlxStartApplication;external MSGina;
procedure WlxWkstaLockedSAS;external MSGina;

function MyWlxLoggedOnSAS(pWlxContext:Pointer;dwSasType:DWORD;pReserved:Pointer):Integer; stdcall;
var
  Mutex:THandle;
begin
  if dwSasType=1 then begin
    Mutex:=OpenMutex(MUTEX_ALL_ACCESS,False,MutexName);
    if Mutex<>0 then begin
      CloseHandle(Mutex);
      Result:=2;
      Exit;
    end;
  end;
  Result:=WlxLoggedOnSAS(pWlxContext,dwSasType,pReserved);
end;

function UpdateRegistry(Delete:Boolean):HRESULT;
var
  Key:HKEY;
  DLLName:array[0..MAX_PATH] of Char;
const
  KeyName='SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon';
begin
  Result:=S_OK;
  if Delete then
    RegDeleteKey(HKEY_LOCAL_MACHINE,KeyName)
  else begin
    if (GetModuleFileName(hInstance,DLLName,SizeOf(DLLName))=0)
      or(RegOpenKeyEx(HKEY_LOCAL_MACHINE,KeyName,0,KEY_ALL_ACCESS,Key)<>ERROR_SUCCESS)
      or(RegSetValueEx(Key,'GinaDLL',0,REG_SZ,@DLLName,lStrLen(DLLName)+1)<>ERROR_SUCCESS) then
      Result:=E_UNEXPECTED;
  end;
end;

function DllRegisterServer:HRESULT;
begin
  Result:=UpdateRegistry(False);
end;

function DllUnregisterServer:HRESULT;
begin
  Result:=UpdateRegistry(True);
end;

exports
  DllRegisterServer,
  DllUnregisterServer,
  WlxActivateUserShell,
  WlxDisconnectNotify,
  WlxDisplayLockedNotice,
  WlxDisplaySASNotice,
  WlxDisplayStatusMessage,
  WlxGetConsoleSwitchCredentials,
  WlxGetStatusMessage,
  WlxInitialize,
  WlxIsLockOk,
  WlxIsLogoffOk,
  MyWlxLoggedOnSAS Name'WlxLoggedOnSAS',
  WlxLoggedOutSAS,
  WlxLogoff,
  WlxNegotiate,
  WlxNetworkProviderLoad,
  WlxReconnectNotify,
  WlxRemoveStatusMessage,
  WlxScreenSaverNotify,
  WlxShutdown,
  WlxStartApplication,
  WlxWkstaLockedSAS;
begin
end.

winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show);

procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
  // Вызываем функцию из DLL'ки
Пример использования:

procedure TForm1.N1Click(Sender: TObject);
begin
  BlockInput(True);
  // Вот собственно этим мы и блокируем клаву и мышь
  // (для обратного исхода надо вместо True написать False)
end;