PC Ausschalten mit NOT-AUS-Knopf

[triggerhappy]

Hallo :hi:
Ich bräuchte ma ein paar Tipps, und wenns geht vielleicht auch ein
paar Zeilen des Quellcodes für mein Projekt.

Also, ich komm jetzt mal zu dem, was ich machen will:
Theoretisch ist es ja einfach, den PC mit dem Not-aus-Schalter
auszumachen: einfach direkt ans Netzkabel. Aber das ist ja nicht
grad das Beste für den PC.
Also hab ich mir überlegt, dass ich den Schalter an den Seriellen
oder an den Parallelen Port anschließen könnte, und mit
Delphi des Zusand des Knopfes (geschlossen oder offen) abfragen kann,
Und dann Windows von dem Programm aus einfach herunterfahren lasse.
Den Code zum Herunterfahren hab ich, und auch schon in anderen Programmen
eingesetzt.
Ein paar fachkundige Freunde haben mir geraten den Parallelen Port,
also den Druckeranschluss zu nehmen. Mir ist das eigentlich egal.

Und jetzt zur Frage:
Wie muss ich den Schalter an den Stecker anschließen, und wie
sieht der Quellcode zum Abfragen der Schalterstellung aus ?
Wenn der Schalter gedrückt wurde (also der Stromkreis unterbrochen ist) soll

Delphi-Quellcode:

timer1.enabled:=true;

sein.

Danke schon im Vorraus.

[CrashMan]

Wenn ein Schalter gedrückt wird, ist in der Regel der Stromkreis nicht nterbrochen sondern hergestellt.

In der Regel, weil es durchaus auch Schalter gibt, die den Stromkreis unterbrechen...

CrashMan

[Luckie]

welchen Nutzen versprichst du dir von dem Schalter?

[triggerhappy]

Ja in der Regel schon.
Aber ein Notaus-Schalter ist ein Öffner.
D.h. wenn ich den reindrück is der Stromkreis auf....

[triggerhappy]

Also der Nutzen is folgender:
Als Rettungsassistent muss ich manchmal ziemlich schnell meinen
Arbeitsplatz verlassen, und werde die nächsten Stunden vielleicht
nicht zurückkehren. Und wenn wirlich viel länger dauert, dann komm
ich nicht mehr zu meinem Arbeitsplatz zurück, also läuft der PC die ganze Nacht,
oder das Wochenende. Also: Notaus rein, un ab. :mrgreen:

[Luckie]

Leg dir ein Icon auf den Dektop mit einer Verknüpfung zu einem Programm, welches den Rechner runterfährt - fertig.

[triggerhappy]

Ja, schon. Des is ach ne Lösung.
Aber die andere würde mir besser gefallen :spin2:

[SleepyMaster]

Oder schreib dir ein Programm, das die Positon der Mausüberpüft und jede Sekunde mit dem davorigen Wert vergleicht. Sind diese Werte für c.a. eine halbe Stunde die gleiche (eine 30 Minuten lang wurde die Maus dann nicht mehr bewegt) dann lass den Rechner herrunterfahren.

Is zumindestens einfacher als das mit dem Parallelport zu lösen!
(Und wenn du gerufen wirst, während du grade nicht vor deinem PC bist, dann musst du dich garnicht mehr um ihn kümmern)

[triggerhappy]

Naja, ok. Wenns wirklich nicht so einfach ist, mit dem parallelport,
dann seh ich mal, dass ich das irgendwie so auf die Reihe bekomm.

Trotzdem danke. :cheers:

[Luckie]

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

Delphi-Quellcode:

Function LastInput: boolean; 
 var LInput : tagLASTINPUTINFO; 
 const TIMELIMIT = 10000; 
 begin 
   result := false; 
   LInput.cbSize := SizeOf(tagLASTINPUTINFO); 
   GetLastInputInfo(LInput); 
   if (GetTickCount - LInput.dwTime) > TIMELIMIT then result := true; 
end;