Realisierung Programm wurde gewisse Zeit nicht bedient ?

[mleyen]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Messages, AppEvnts;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    aplctnvnts1: TApplicationEvents;
    procedure FormCreate(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean);
  private
    FLastUserInput: Cardinal;
    FUserIsAfk: Boolean;
    function GetTimeSinceLastTick: Cardinal;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  UserIsAfkIn = 5000; // ms

procedure TForm1.aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  case Msg.Message of
    WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST..WM_MOUSELAST:
      if Msg.Message <> WM_MOUSEMOVE then
        FLastUserInput := GetTickCount;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FLastUserInput := GetTickCount;
  FUserIsAfk := false; 
  Caption := 'state green';
end;

function TForm1.GetTimeSinceLastTick: Cardinal;
begin
  if GetTickCount < FLastUserInput then
    Result := (High(Cardinal) - FLastUserInput) + GetTickCount
  else
    Result := GetTickCount - FLastUserInput;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if FUserIsAfk then
  begin
    if GetTimeSinceLastTick < UserIsAfkIn then
    begin
      Caption := 'User is back';
      FUserIsAfk := false;
    end;
  end
  else
  begin
    if GetTimeSinceLastTick >= UserIsAfkIn then
    begin
      Caption := '!!! Zomg! User stopped workin and idles around !!!';
      FUserIsAfk := true;
    end;
  end;
end;

end.

Gibts außer dem Timer noch etwas auszusetzen?

[alfold]

Zitat von mleyen:

[DELPHI]unit Unit1;
Gibts außer dem Timer noch etwas auszusetzen?

Im Prinzip schon!

Zitat von RalfE:

....Auf dem Rechner laufen noch Office-Programme, die in der
Zwischenzeit von den Kollegen benutzt werden.
Gruss

also geht es nicht mit der simplen abfrage ob Taste/Mouse nicht mehr benutzt wurden

Delphi-Quellcode:

case Msg.Message of
    WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST..WM_MOUSELAST:
      if Msg.Message <> WM_MOUSEMOVE then
        FLastUserInput := GetTickCount;
  end;

Darum ja auch die Frage von mir ob die Waage eine Schnittstelle hatt, welche?
Denn er muss ja den Befehl zur Waage schicken!
Nächste Frage ist, ob die Waage den 'Befehl Standby' von aussen überhaupt erkennt?
Nicht das es nur ne Hardware Angelegenheit ist! Dann hatt sich das Thema Software eh erledigt!

Wenn ja, dann fragt man nicht die Software ab (ob damit jemand arbeitet), sondern die Schnittstelle, ob da was passiert!

Solltest Du @RalfE erst mal Prüfen!

Gruss alfold