本文整理自网络，侵删。
delphi禁止用户切换任务
假定我们要设计一个Windows95的口令程序，该程序运行时需要覆盖整个桌面，并且不允许用户用
Alt+Esc、Ctrl+Esc等系统组合键来切换到其他程序。为达到此目的，可按以下步骤：
将Form的FormStyle属性设为fsStayOnTop
将Form的WindowState属性设为wsMaximized
在Form的OnCreate事件处理过程中为Windows发送一个屏幕保护程序正在运行的消息
当程序结束时清除屏幕保护程序运行标志。
示例代码：
procedure TForm1.FormCreate(Sender: TObject);
var
temp: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
end;
procedure Form1.OnClose(Sender: TObject; var Action: TCloseAction);
var
temp: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
end;
相关阅读 >>
Delphi xe7中的运行时设置android应用程序屏幕方向
Delphi 的字符及字符串 - char、ansichar、widechar、pchar、pansichar、pwidechar
Delphi webbrowser的关于流载入流保存和流生成
更多相关阅读请进入《Delphi》频道 >>
