to：老莫
wumeng：谢谢，但你有没有在NT下真的试过呢？这个方法是行不通的.
我没有在NT下真的试过。我刚才试了，函数成功了。但不能屏蔽ctl+alt+del。
代码如下：
procedure TForm1.Button12Click(Sender: TObject);
var temp:integer;
isNoY:boolean;
begin
isNoY:=SystemParametersInfo( SPI_GETSCREENSAVEACTIVE , 1, @temp, 0);
if isNoY then
showmessage('Y')
else
showmessage('N');
end;
procedure TForm1.Button13Click(Sender: TObject);
var temp:integer;
isNoY:boolean;
begin
isNoY:=SystemParametersInfo( SPI_GETSCREENSAVEACTIVE , 0, @temp, 0);
if isNoY then
showmessage('Y')
else
showmessage('N');
end;
另外：那是我以前看的，95和NT的ctl+alt+del机理不同。见笑了。
难道真的没有解决办法了吗？
