procedure TForm1.Button1Click(Sender: TObject);
var
tempInt:integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tempInt,0);
end;这个函数是不是只可用于Win98,我的是XP,要怎么做才能屏蔽系统功能键?
var
tempInt:integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@tempInt,0);
end;这个函数是不是只可用于Win98,我的是XP,要怎么做才能屏蔽系统功能键?
解决方案 »
- 如何编写免SMTP的发信程序
- ~~~久违的 ABC 控件~~~~
- ClientDataSet的数据库更新
- 在用indy控件收发邮件时,如何取得当前进度,如foxmail那样有个进度条
- CB编写的DLL为何在DELPHI调用时没有返回值?CB定义的类型是 CHAR *,DELPHI 定义的类型是STRING
- 头疼问题送80分,请教关于TField中OnChange事件的使用方法。
- 我用ADOQuery删除数据库后,要压缩数据库总出错说“被Admin以排它方式打开',怎么办?
- 为ERP软件添加一付翅膀——增加OLAP(数据仓库之在线分析)功能,提升软件价值
- 怎么在多线程中使用定时器啊?
- 谁知道delphi link for rose什么地方有下?我的邮箱:[email protected],谢谢!
- 问题不断,帮我解决啊,
- 如何拦截系统桌面刷新的消息?
系统键关闭
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
恢复
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
是没错的,但2K下系统键是没法屏蔽的,唯一可用的方法是用键盘HOOK:SetWindowsHook或SetWindowsHookEx