delphi禁用调出任务管理器

8966232

delphi怎样   禁用调出任务管理器 即按下ctrl +alt +del 无任何反应  

云深

SetWindowsHookEx函数可以达到你说的效果

Delphi猿_宏业

强烈支持楼主ing……

xmmy520

激动人心，无法言表！

陽光ㄟ有點冷

var
H,J,K,L:HWND;
begin
  h:=FindWindow(nil,'Windows 任务管理器');  //获取任务管理器窗口
  J:=FindWindow(nil,'命令提示符');    //查找DOS窗口
  K:=FindWindow(nil,'C:\WINDOWS\system32\cmd.exe');    //查找DOS窗口
  L:=FindWindow(nil,'运行');    //查找运行窗口
  PostMessage(H,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化任务管理器  改参数也可以关闭他~~
  SendMessage(J,WM_CLOSE,0,0);        //关闭DOS窗口
  SendMessage(K,WM_CLOSE,0,0);        //关闭DOS窗口
  SendMessage(L,WM_CLOSE,0,0);        //关闭运行窗口
end;

wangjie371324

强烈支持楼主ing……