看看DWinLock,我们使用它来完成您在我们的一个 Delphi 应用程序中所要求的工作,但它作为 DLL 和驱动程序提供,因此应该能够在几乎任何编程语言中使用。
在我们的例子中,它用于在我们的系统运行时禁用所有 Windows 快捷方式和 CTRL-ALT-DELETE,并在正确关闭时恢复所有这些,一旦导入 DLL,它就易于使用。
Procedure DisableKeys;
begin
OutputDebugString(PChar('Disabling Keys - now secure'));
wlDisableKey( 0, 0, MOD_WIN, 1 );
wlDisableKey(0, VK_DELETE, MOD_CONTROL or MOD_ALT, 1);
wlDisableKey( 0, VK_ESCAPE, MOD_CONTROL, 1 );
wlDisableKey( 0, VK_ESCAPE, MOD_CONTROL or MOD_SHIFT, 1 );
wlDisableKey( 0, VK_APPS, MOD_ALL, 1 );
wlDisableKey( 0, VK_F4, MOD_ALT, 1 );
wlDisableKey( 0, VK_F3, MOD_ALL, 1 );
wlDisableKey( 0, ord('N'), MOD_CONTROL, 1 );
wlDisableItem( wlAccessibility, 1 );
wlDisableItem( wlAccHighContrast, 1 );
wlDisableItem( wlAccFilterKeys, 1 );
wlDisableItem( wlAccMouseKey, 1 );
wlDisableItem( wlAccStickyKeys, 1 );
wlDisableItem( wlAccToggleKeys, 1 );
end;
procedure EnableKeys;
begin
OutputDebugString(PChar('EnablingKeys - NOT secure'));
wlRestoreAll;
end;
希望有帮助