如何在NT下禁止系统键?Ctrl+alt+Del...(100分)

  • 主题发起人 主题发起人 灰衣老僧
  • 开始时间 开始时间

灰衣老僧

Unregistered / Unconfirmed
GUEST, unregistred user!
用屏保的方法不行!!!
 
请参考
不允许用户用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 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;
 
具体想要做什么, 是不是想搞死你的NT? 禁止了Ctrl+Alt+Del怎样进入NT Logon呢?
 
瞎,你们可真累呀,你深度历险当一个叫 SetKey 的控件,不就全解决了?这个控件还是带源码的!!你们争来争去,也不累人啊?
 
NT下好象不能在应用层禁止Ctrl+Alt+Del,必须用Driver
 
那是MS自豪的安全系统,你们能破?
 
你们呀,可真累!Delphi 32 深度历险里有一个带源码的 SetKey 控件,当下来,自己去看吧!
 
谁说的,只要程序编的好,可以跳过这些键的,这些不是安全方面的键。
我的NT连登录对话框都没有,直接进入NT !!
 
按组合键必须进入LOGON画面,那是MS的安全机制!
 
我在NT上试过的, 用屏幕保护的方法可以实现!
 
webbar, 告诉我如何跳过这些键,好吗?
 
试试改注册表,可能行.
 
WebBar 告诉我你是怎样跳过LOGO窗的。
 
我在NT上试过的, 用屏幕保护的方法<b>不能</b>实现!
我用的就是那个号称SetKey的控件,编译好的程序在
98下就可以,在NT下连Alt+Tab,Ctl+Esc都不能屏蔽.
 
Some body finish it, please!
 
看样子是出不了答案了,分了吧。
如果有谁知道答案的,Email给我,或者贴上来,我给分! :-)
 
多人接受答案了。
 
后退
顶部