水木清华BBS精华
源代码在线查看： 107.htm
CTerm非常精华下载
水木清华★
Delphi编程 (BM: strayli FlyingBoy)
[回到开始][上一层][下一篇]
发信人: wanderor (Kun the Great), 信区: Delphi
标 题: Re: [请教]如何编程检测屏幕保护程序是否运行呢？
发信站: BBS 水木清华站 (Sat Oct 3 14:34:52 1998) WWW-POST
冲浪时无意中发现下面的代码，既然里面含有“screensaverrunning”
这个词，姑且发在这里。也许对你有用，也许离题万里。
屏蔽系统功能键
当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下代码
：
Var
temp: integer;
begin
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
end;
当你要恢复功能键时用以下代码：
Var
temp: integer;
begin
SystemParametersInfo(spi_screensaverrunning,0,@temp,0);
end;
--
绿色有益于你的眼睛。。。。。。
----------------------------------------------------------------
无微不至的关怀, 无微不至的爱
※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 166.111.5.53]
[回到开始][上一层][下一篇]
欢迎访问Cterm主页
