Время бездействия приложения -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.224.0.25]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Programm Security (Programm Security)

Время бездействия приложения

Rouse_

Сообщ. #1 , 23.05.05, 10:35

Moderator

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 320

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls;

type

TForm1 = class(TForm)

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

Start, OldTim: Cardinal;

public

procedure OnIdle(Sender: TObject; var Done: Boolean);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnIdle(Sender: TObject; var Done: Boolean);

var

Tmp: Cardinal;

begin

Tmp := GetTickCount;

if Tmp - OldTim < Timer1.Interval then

Start := Tmp;

OldTim := Tmp;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form1.Caption := 'Время бездействия: ' + IntToStr(GetTickCount - Start);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Start := GetTickCount;

Application.OnIdle := OnIdle;

end;

end.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0137 ] [ 16 queries used ] [ Generated: 2.05.24, 00:16 GMT ]