BCB程序
屏蔽:
int tmp,Flag;
tmp = 0;
Flag = 1;
//屏蔽 Ctrl-Alt-Del
SystemParametersInfo( SPI_SCREENSAVERRUNNING,Flag, &tmp, 0);恢复
int temp=0;
int Flag = 0;
SystemParametersInfo( SPI_SCREENSAVERRUNNING,Flag, &temp, 0);
屏蔽:
int tmp,Flag;
tmp = 0;
Flag = 1;
//屏蔽 Ctrl-Alt-Del
SystemParametersInfo( SPI_SCREENSAVERRUNNING,Flag, &tmp, 0);恢复
int temp=0;
int Flag = 0;
SystemParametersInfo( SPI_SCREENSAVERRUNNING,Flag, &temp, 0);
解决方案 »
- hour不是可以识别的函数名
- Win98 替换正在使用的文件
- DBGrid 中的Fields[i]和Columns.Items[i]有什么差别
- 请问用哪一个控件既可以在上面显示图片,可以显示文字,也可以文字图片同时显示??
- 怎样来设置查询时出现的数据库超时问题(我用的数据库是sqlserver),在线急
- 如何用DELPHI编程控制家庭电器的开关,如电灯,门,音像等,要加中间设备吗?
- 菜鸟问一个DBMEMO写入数据库的问题!
- 第一次试着写个简单DLL,就出现问题了(close,font)
- delphi 自定义了函数怎么调用?
- 关于COMBOBOX的问题(好难)
- delphi 最小化问题
- 1、怎样把数据库的当前记录追加到另一个数据库中去,如用SQL应怎么写这条语句,不用SQL则又怎么写。
源码如下:
...
procedure TForm1.Button1Click(Sender: TObject);
var temp,flag:integer;
res:boolean;
begin
temp:=0;
flag:=1;
res:=systemparametersinfo(SPI_SETSCREENSAVeACTIVE,flag,@temp,0);
if res then showmessage('ok');
end;procedure TForm1.Button2Click(Sender: TObject);
var temp,flag:integer;
res:boolean;
begin
temp:=0;
flag:=0;
res:=systemparametersinfo(SPI_SETSCREENSAVeACTIVE,flag,@temp,0);
if res then showmessage('ok2');
end;
delphi语法我不是很清楚。
我在等待nt4下的答案,这样就能把任务管理器屏蔽掉了。
hehe.
var flag,tmp:integer;
begin
flag=1;//flag=0;
tmp=0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING,Flag,@tmp,0);
end;
No.2 关机
No.3 不要同时按下它们
No.4 把操作系统换了
No.5 打算盘吧
...
SystemParametersInfo( SPI_SCREENSAVERRUNNING,1, &tmp, 0);恢复
SystemParametersInfo( SPI_SCREENSAVERRUNNING,0, &temp, 0);