异类的屏幕保护

        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参考我的另一篇拙文：《启动外部程序并等待它的结束》。

上一页  [1] [2] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18