小弟想用delphi做一个屏幕保护程序
rocedure TFormScreen.detect(var Msg:TMsg;var Handle:Boolean);
begin
Done:=False;
if(Msg.message=WM_KEYDOWN) then
begin
Done:=True;
end;
if Done=True then
begin
FormScreen.Visible:=False;
if not (Mess.message=WM_KEYDOWN) or (Mess.message=WM_MOUSEMOVE) then
timer1.enabled:=true;
end;
end;
现在碰到的问题是,屏幕隐藏后30秒就出现了(30秒是我的设定)
而我想做到的是在没有鼠标键盘响应30秒后才出现屏幕
现在是只要30秒屏幕就出来在判断有没有响应才隐藏
望高手门指点一下
rocedure TFormScreen.detect(var Msg:TMsg;var Handle:Boolean);
begin
Done:=False;
if(Msg.message=WM_KEYDOWN) then
begin
Done:=True;
end;
if Done=True then
begin
FormScreen.Visible:=False;
if not (Mess.message=WM_KEYDOWN) or (Mess.message=WM_MOUSEMOVE) then
timer1.enabled:=true;
end;
end;
现在碰到的问题是,屏幕隐藏后30秒就出现了(30秒是我的设定)
而我想做到的是在没有鼠标键盘响应30秒后才出现屏幕
现在是只要30秒屏幕就出来在判断有没有响应才隐藏
望高手门指点一下
解决方案 »
- [在线急盼]TEdit控件的SelStart出错
- 與電腦連接的地稱,有幾個問題請教
- 怎样在没有装sqlserver客户端的机子上列出网络上的sqlserver服务器或者网络上的电脑?
- 有如下函数,调用时出错,请帮助,谢谢
- 继承TCustomEdit控件时,如何在设计期就去掉Ctl3d属性
- 默认的按钮是灰色的,那怎样给按钮变色?
- 如何把在listview中被选中的图片传给image?
- 有需要依时利繁体SQL SERVER网络版接口的朋友吗?
- 请问在类中声明一个属性域的类型为TNotifyEvent时,该属性如何使用,为什么要声明该种类型的属性?
- 高分求一弱智问题,如何求1,2,3,4,...n的最小公倍数
- 至难问题,解决者绝对是一流高手,关于delphi的标准单元
- 怎样为动态创建的控件添加代码?
然后在你主程序的Timer的OnTimer事件中调用钩子
当属表或者键盘按下的时候,几下当前的时间,StartTime
当属表或者键盘再按下的时间EndTime
EndTime-StartTime的值和30比较
然后StartTime:=EndTime;