全面禁止WINDOWS
诸位朋友，你是否曾经有过全面禁止Windows的想法呢？就是诸如禁止Windows桌面、任务栏（包括工具栏的快速启动区域、右下角的通知区域、开始按钮、任务按钮等）、系统按键（包括“Ctrl+Alt+Del”、“Alt+Tab”、“Ctrl+Esc”、“Start-button”等等）、屏幕保护，还有最后的禁止关机。禁止就是不能对它们进行操作，你要是不愿意禁止，你还可以隐藏，把这些统统隐藏起来。
要禁止桌面、任务栏必须知道，当桌面的背景图片刚刚显现，注意这时的屏幕是没有桌面图标和任务栏的，也就是说，它们都是在系统启动后才装入系统的，并不是系统的核心部分。通过对系统当前所有窗体的搜索可以知道，它们都是窗体 （当然，并不是普通的窗体），且都拥有自己的句柄，这样，我们就可以用ShowWindow（Wnd， SW_HIDE）来隐藏它们，或者用EnableWindow（Wnd， False）来禁止它们，是不是很简单。关键是要获得它们的句柄，这可以用FindWindow获得，而用FindWindow必须知道所找窗体的类名。下面先列出我们要用到的类名：
Shell_TrayWnd 任务栏整条
TrayNotifyWnd 任务栏的右下角通知区域
Button 任务栏上的开始按钮
ReBarWindow32 任务栏的工具栏和任务按钮
TrayClockWClass 通知区域的小时钟
ShellDll_DefView 桌面图标
Progman 程序管理器
#2 1. 禁止/隐藏整条任务栏
procedure TForm1.Button1Click（Sender: TObject）；
Var Wnd: THandle;
begin
Wnd:= FindWindow（＇Shell_TrayWnd＇， nil）；
//用下面这一句实现隐藏
if Wnd <> 0 then ShowWindow（Wnd， SW_HIDE）;
//用下面这一句实现禁止
if Wnd <> 0 then EnableWindow（Wnd， False）;
end；
禁止和隐藏最好只用一个，因为隐藏了，你无处去按，等于禁止；禁止了，失去了作用，藏不藏都无关紧要。最后别忘了恢复正常必须用ShowWindow（Wnd， SW_SHOW）和EnableWindow（Wnd， True）。
注：以下2~6只列出如何使用FindWindow
#2 2. 隐藏任务栏的右下角通知区域
Wnd:= FindWindow （＇Shell_TrayWnd＇， nil）；
Wnd:=FindWindowEx （Wnd， HWND（0），＇TrayNotifyWnd＇， nil）；
#2 3. 禁止/隐藏任务栏上的开始按钮
Wnd:=FindWindow （＇Shell_TrayWnd＇， nil）；
Wnd:=FindWindowEx （Wnd， HWND（0）， ＇Button＇， nil）；
#2 4. 禁止/隐藏任务栏的工具栏和任务按钮
Wnd:=FindWindow （＇Shell_TrayWnd＇， nil）；
Wnd:=FindWindowEx （Wnd， HWND（0）， ＇ReBarWindow32＇， nil）；
#2 5. 隐藏通知区域的小时钟
Wnd:=FindWindow （＇Shell_TrayWnd＇， nil）；
Wnd:=FindWindowEx （Wnd， HWND（0）， ＇TrayNotifyWnd＇， nil）；
Wnd:=FindWindowEx （Wnd， HWND（0），＇TrayClockWClass＇， nil）；
#2 6. 禁止/隐藏桌面图标
Wnd:=FindWindow （＇Progman＇， nil）；
Wnd:=FindWindowEx （Wnd， HWND（0）， ＇ShellDll_DefView＇， nil）；
以上2~6可以直接代入1的Button1Click过程中，以实现相应的功能。并且注意2和5只能隐藏，不能禁止（不信？你可以试试，没有危险的，Hehe）。
#2 7. 在任务栏中隐藏本程序的按钮
Var XWndLong: integer；
begin
XWndLong:= GetWindowLong（Application.Handle，GWL_EXSTYLE）；
ShowWindow（Application.Handle，SW_HIDE）； //必须先隐藏程序窗口
SetWindowLong（Application.Handle，GWL_EXSTYLE， XWndLong or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW or WS_EX_TOPMOST）；
ShowWindow（Application.Handle， SW_SHOW）； //设置按钮隐藏后再恢复窗口
end；
恢复按钮显示用SetWindowLong（Application.Handle，GWL_EXSTYLE， XWndLong）；
并且仍然需要两个ShowWindow，将Application.Handle改成其它程序的句柄还可以隐藏其它程序。
#2 8. 从关闭程序对话框（按“Ctrl+Alt+Del”时出现）中隐藏本程序：
先在程序中的implementation前加上这么一句
function RegisterServiceProcess（dwProcessID，dwType:integer）:integer; stdcall;external ＇KERNEL32.DLL＇; //调用系统的外部API函数
然后隐藏用RegisterServiceProcess（GetCurrentProcessID， 1）；
恢复显示用RegisterServiceProcess（GetCurrentProcessID， 0）；
#2 9. 禁止系统键（包括“Ctrl+Alt+Del”、“Alt+Tab”、“Ctrl+Esc”、“Start-button”等等）
procedure TForm1.Button1Click（Sender:TObject）；
var pv: integer；
begin
SystemParametersInfo（SPI_SCREENSAVERRUNNING，1， @pv，0）;
end
恢复用SystemParametersInfo（SPI_SCREENSAVERRUNNING，0， @pv，0）;
#2 10. 禁止屏幕保护
先增加一过程如下：
procedure TForm1.AppMessage（var msg:TMsg; var Handled: boolean）;
begin
if（msg.message = wm_SysCommand）and（msg.wParam = sc_ScreenSave）then
begin
Handled:= True;
//禁止屏幕保护
MessageBeep（0）;
//加入自己的处理
MessageDlg（＇Screen-saver is Disabled!＇， mtWarning，[mbOk]， 0）;
end;
end;
然后用：
procedure TForm1.Button1Click（Sender:TObject）；
begin
Application.OnMessage := AppMessage;
//开启禁止功能
end;
关闭禁止功能用Application.OnMessage:= nil;
注意，程序必须处于活动（前台）状态，因为处于后台时无法截获屏幕保护开始的消息。
#2 11. 禁止关机及退出程序
先增加一过程如下：
procedure TForm1.AppCloseQuery（Sender:TObject； var CanClose: Boolean）;begin
CanClose:= False;
//禁止关机及退出程序
MessageBeep（0）;
MessageDlg（＇You Can＇t shutdown Windows or this application!＇， mtWarning，[mbOk]， 0）;
end;
然后用：
procedure TForm1.Button1Click（Sender:TObject）；
begin
Form1.OnCloseQuery:= AppCloseQuery;
//开启禁止功能
end;
关闭禁止功能用Form1.OnCloseQuery:= nil;
注：慎用该方法。