我想做一个和屏幕锁一样的东西，如何使我的窗体总在最前端，遮盖其他一切（包括window和其他程序，比如说迅雷的悬浮窗），并且屏蔽键盘上的一些功能键，防止被强行关闭，希望高人指点！
重申两个问题：1.如何使窗体总显示在最前端
              2.如何屏蔽键盘上的一些功能键，比如ctrl+alt+del。
坐等高人

1.如何使窗体总显示在最前端这很简单，网上大量代码。
2.如何屏蔽键盘上的一些功能键，比如ctrl+alt+del。这请高手回答。

网上保持窗体在最前端的代码是很多，但我没找到能够遮盖像迅雷的悬浮窗口和QQ那种贴边显示的啊

ctrl+alt+del

这个很难干掉.因为个的的控制部分是在 winlogon 里面.
win热键在 Explorer 进程里面,这个好控制一点.

我上次看到网管系统,采用的是把自己最大化,然后总在前面.

可以考虑采用定时器,周期把自己设置为置顶.

https://bbs.bccn.net/thread-288363-1-1.html

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
Dim front
front = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, &H2 Or &H3)
End Sub

 遮住迅雷浮标

屏蔽任务管理器
Private Sub Command1_Click()
Dim Reg As Object
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1
Set Reg = CreateObject("Wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_SZ"
MsgBox "您的任务管理器已被禁用！", 0, "警告"
End Sub

双重屏蔽

大哥你的方法真灵，就是我不会再重新启用任务管理器了，大哥教个法吧

这个貌似会被杀毒软件拦截，然后当病毒杀掉