我想用 Delphi 实现一个锁屏功能.要求能禁用 CTRL-ALT-DEL 等键. 还有 Win 键 等等,要如果做呢?(100分)

  • 主题发起人 主题发起人 QSmile
  • 开始时间 开始时间
Q

QSmile

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用 Delphi 实现一个锁屏功能.要求能禁用 CTRL-ALT-DEL 等键. 还有 Win 键 等等,要如果做呢?

还有就是锁屏的图面如何做? 做个超大的窗体放在最上面?
 
这个资料你看一下
禁止和允许键盘,需要一个DLL来做到这一点:
Library KillKB;

Uses Wintypes, WinProcs
{$IFNDEF VER80}
,Win31
{$ENDIF}
;
Var
oldHook: HHook;

Function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt;
export;
Begin
If code < 0 Then
KbHook := CallNextHookEx( oldHook, code, wparam, lparam )
Else
KbHook := 1;
End; { KbHook }

Function DisableKeyboard: Boolean; export;
Begin

oldHook := SetWindowsHookEx( WH_KEYBOARD, KbHook, HInstance, 0 );
DisableKeyboard := oldHook <> 0;
End;

Procedure EnableKeyboard; export;
Begin
If oldHook <> 0 Then Begin
UnhookWindowshookEx( oldHook );
oldHook := 0;
End; { If }
End;

exports
DisableKeyboard index 1,
EnableKeyboard index 2;

Begin
oldHook := 0;
End.
 
后退
顶部