屏蔽系统热键

    在自己的程序中将任务栏隐藏起来，并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键，也是很有趣的。要实现它们比较容易，但千万别忘

了恢复正常，另外，本例中使用了3个API函数：FindWindow、ShowWindow和SystemParametersInfo，在使用它们之前一定要进行申明。

Implementation
　var Hwnd:THandle;
    　Tmp:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
　Hwnd:=FindWindow('Shell_TrayWnd',nil);
　if Hwnd<>0 then ShowWindow(Hwnd,SW_HIDE); //隐藏任务栏
　　SystemParametersInfo(SPI_SCREEN
　　SAVERRUNNING,1,@Tmp,0); //屏蔽系统热键
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　Hwnd:=FindWindow(&#39;Shell_TrayWnd&#39;,nil);
　ShowWindow(Hwnd,SW_SHOW); //恢复任务栏
　SystemParametersInfo(SPI_SCR
　　EENSAVERRUNNING,0,@Tmp,0);
　　//恢复系统热键
end;