Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi PC Ausschalten mit NOT-AUS-Knopf (https://www.delphipraxis.net/11473-pc-ausschalten-mit-not-aus-knopf.html)

Daniel B 7. Nov 2003 14:05

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Zitat:

Zitat von Luckie
Wenn du 2000 und höher hast, könnte das gehen:

Aber Er hat 98. :D

triggerhappy 7. Nov 2003 14:07

Re: PC Ausschalten mit NOT-AUS-Knopf
 
ja genau. Hatter :corky:

Luckie 7. Nov 2003 14:08

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Bei so einem Schrott ist es doch eh egal. Da kannst du doch gleich den Stecker zieh'n. :mrgreen:

Daniel B 7. Nov 2003 14:09

Re: PC Ausschalten mit NOT-AUS-Knopf
 
*ganz laut auflach das es sogar die Nachbarn hören* :lol:

hummer 7. Nov 2003 14:11

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Es gibt auch Tastaturen mit nem Power schlater. Den einfach drücken und der Computer wird heruntergefahren. Oder den Power Knopf am Gehäuse so konfigurieren, das beim drücken des Schalters der Rechner runtergefahren wird.

triggerhappy 7. Nov 2003 14:12

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Ich bin aber eigentlich ziemlich zufrieden :spin2:

SleepyMaster 7. Nov 2003 14:13

Re: PC Ausschalten mit NOT-AUS-Knopf
 
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.

triggerhappy 7. Nov 2003 14:15

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Danke für den code. Ich test mal, welche Lösung am Besten ist.
Aber an die Tastatur mit Sleep-Knopf hab ich noch gar nit gedacht :wall:

Danke
:dp:

Treffnix 7. Nov 2003 14:29

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Zitat:

Ja, schon. Des is ach ne Lösung.
Aber die andere würde mir besser gefallen
Sei doch ehrlich! Du willst nicht die einfachste Lösung, du willst die stylischste. :tongue:
Ich kenn das doch. Dat muss watt hermachen. Ich habe Kameraden, da geht Licht an und Garagentor auf, wenn der Meldeempfänger piept. :wink:

Übrigens: Wie wärs, wenn der Rechner runterfährt, sobald der Pieper geht? :zwinker:

triggerhappy 7. Nov 2003 15:57

Re: PC Ausschalten mit NOT-AUS-Knopf
 
Ich brauch nicht gerade die Stylischste, aber die
einfachste musses ach nit sein :-D
Das einfachste wäre die Sleep-Tastatur,
und das Stylischste wäre das automatische Ausgehn wenns piepst :mrgreen:
Un so zwischen drin liegt dann wohl der Notaus-schalter...

:spin:


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:25 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz