Время бездействия приложения
Время бездействия приложения
Время бездействия приложения 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.
