[eXplorer]

Отключить клаву:

Код:

var
dirWin: array[0..255] of char;
begin
GetWindowsDirectory(dirWin,255); 
WinExec(PChar(WinDir + ' undll32.exe keyboard,disable'),SW_SHOWNORMAL);
end;