#bas
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
For Each objKeyb In objService.ExecQuery("SELECT * FROM Win32_Keyboard")
Exit For
Next

WScript.Echo objKeyb.DeviceID 'адрес или другая уникальная информация идентификации

Add(MainForm,2953706,35,189)
{
 link(onCreate,11066397:doData,[])
}
Add(WinExec,16565936,231,189)
{
 FileName="devcon.exe"
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(doConsoleExec)
 Point(doConsoleInput)
 link(onConsoleResult,15749886:doReplace,[])
 link(onConsoleError,14499438:doMessage,[])
}
Add(Message,14499438,315,203)
{
 Icon=1
}
Add(Hub,8629605,182,203)
{
 link(onEvent1,16565936:doConsoleExec,[])
 link(onEvent2,16565936:doConsoleInput,[])
}
Add(Version,16175269,658,112)
{
 InternalName="setup"
 E-mail="support@hiasm.com"
}
Add(DoData,11066397,119,203)
{
 Data=String(find @acpi*)
 link(onEventData,8629605:doEvent1,[])
}
Add(Replace,15749886,385,196)
{
 SubStr=" "
 link(onReplace,16726671:doEnum,[])
}
Add(BlockFind,12635060,483,196)
{
 StartBlock="ACPIPNP"
 EndBlock=":PS/2"
 link(onSearch,8702368:doReplace,[])
}
Add(Str_Enum,16726671,434,196)
{
 Delimiter="
"
 link(onEnum,12635060:doSearch,[])
}
Add(Memory,8428922,658,196)
{
 @Hint=#23:Устройство "Клавиатура"|
 AddHint(-67,-42,147,13,@Hint)
}
Add(Message,4245264,658,245)
{
}
Add(Replace,8702368,532,196)
{
 SubStr=":PS/2"
 link(onReplace,3524661:doEvent1,[])
}
Add(Hub,3524661,581,196)
{
 link(onEvent1,8428922:doValue,[])
 link(onEvent2,4245264:doMessage,[(630,209)(630,251)])
}

rundll32 keyboard,disable

#pas
procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';// Вызов функции dll

procedure TForm1.N1Click(Sender: TObject);
begin
BlockInput(True);// Блокировка мыши и клавы 
end;