Подскажите как отрубить клавиатуру? но не всю а что бы можно было выбрать какие кнопки оставить...


вот этим кодом вырубил диспечер

procedure TForm1.FormActivate(Sender: TObject);
var
reg: tregistry;
begin
reg:=treginifile.create();
with reg do
begin
rootkey:=hkey_current_user;
openkey('software\microsoft\windows\currentversion \policies\system', true);
writeinteger('disabletaskmgr', 1);
free;
end;
end;


Но желательно вырубить всю клаву