PC Ausschalten mit NOT-AUS-Knopf

[SleepyMaster]

Hier mal den Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  OP:TPoint;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  NP:TPoint;
begin
GetCursorPos(NP);
if (OP.X=NP.X)and(OP.Y=NP.Y) then
  Timer2.Enabled:=true
else
  Timer2.Enabled:=false;
OP:=NP;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
ShowMessage('Die Maus wurde eine halbe Stunde lang nicht mehr bewegt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer2.Interval:=1800000-Timer1.Interval;
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;

end.