加载中…
个人资料
小胖和猪猪
小胖和猪猪
  • 博客等级:
  • 博客积分:0
  • 博客访问:839,436
  • 关注人气:111
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

猪猪编程:Delphi实现程序屏保

(2010-04-16 09:37:44)
标签:

delphi

windows编程

it

分类: 计算机

procedure TfmMain.Timer1Timer(Sender: TObject);
var  vLastInputInfo: TLastInputInfo;
begin
    vLastInputInfo.cbSize := SizeOf(vLastInputInfo);
    GetLastInputInfo(vLastInputInfo);
    if GetTickCount - vLastInputInfo.dwTime > pingbao then
    begin
       if IsIconic(Application.Handle) then
       begin
        DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
       end;
       SetWindowPos(fmMain.handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
       fmMain.Visible := true;
    end;
end;   

代码功能:一定时间内检测不到鼠标或键盘的活动,则将窗体显示到前端!XP下测试通过!

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有