CSDN博客

img garlicee

异类的屏幕保护

发表于2003/7/31 9:44:00  437人阅读

 

我们知道,可以设定,当在一定的时间内没有对计算机进行任何操作时,启动屏幕保护程序。我们还可以规划计划任务,让电脑在某个设定的时间起动我们想进行的工作。这两个功能都是不错的构思,所以微软把它们一直保留了下来。不过,我们可能有更好的想法,希望能在电脑闲置一段时间后进行我们想做的工作,而不仅仅是启动屏幕保护程序。我们可以暂且称它为异类的屏幕保护。可是,我们怎么实现呢?

不会很难吧?对于我们学会编程的人来说,稍稍动动脑筋就行了。难道不是吗?

我一开始也是这样想的。不过,当我真的动手时,发现有一个为难的地方:我们怎样判断电脑是闲置的呢?

不过这不要紧,我想。我们可以把启动的屏幕保护程序指向我们需要的任务嘛。不过,我想还有更好的方法。

这个方法我找到了,而且代码也很简洁。我想把我的心得发表出来,与大家共享。

如果我们做过钩子,不论是键盘钩子、鼠标钩子,或者是其它的系统钩子,一定还记得SetWindowsHookEx这个函数吧?我统计了一下,在《电脑爱好者》的程序谷中,这个函数也是频繁的出现。

不多说啦,今天的程序的核心就是SetWindowsHookEx这个函数了,没有其它要说明的地方。我原来想对程序添加注释,不过你看看程序吧,真的没有必要啊,所以就不多说什么了。哈哈!

程序在DELPHI6.0WINDOWS ME下编程通过。

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls,SHELLAPI;

 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

    var

    Form1: TForm1;

    hHook: integer;

    TimeTotal: integer;

    bNotRunning:boolean;

 

implementation

{$R *.DFM}

const

    Timescount = 10;

 

function JournalRecordProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;

begin

    TimeTotal := 0;

    Result := 0;

end;

 

function StartHook: Boolean;

begin

    Result := False;

    if hHook = 0 then

    begin

        hHook := SetWindowsHookEx(WH_JOURNALRECORD, JournalRecordProc, HInstance, 0);

        if hHook > 0 then        Result := True;

    end;

end;

 

procedure StopHook;

begin

    if hHOok > 0 then

    begin

        UnHookWindowsHookEx(hHook);

        hHook := 0;

    end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

    hHook := 0;

    bNotRunning:=True;

    StartHook;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

    inc(TimeTotal);

    label1.Caption := floattostr(TimeTotal);

    if (TimeTotal > Timescount) and bNotRunning then

    begin

      bNotRunning:=False;

      ShellExecute(Handle, 'open', PChar('notepad'),

               nil, nil, SW_SHOW);

    end;

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

    stophook;

end;

 

end.

程序很短吧?我仅仅启动了记事本,示范了我是怎样完成此功能的,并没有进行更多的考虑。如果你想使用此方法,我建议你首先要对你进行的任务进行更多的控制,包括启动、进度、过程、结束等。你也可以对任务进行列表。如果你不知道怎样控制外部程序,你可以去http://www.csdn.net参考我的另一篇拙文:《启动外部程序并等待它的结束》。

好了,除了屏幕保护和计划任务,你又多了一项选择了。就赶快实现它吧。
0 0

相关博文

我的热门文章

img
取 消
img