AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Delphi-PRAXiS - Lounge Betriebssysteme Rechner herunterfahren, wenn sich niemand einloggt
Thema durchsuchen
Ansicht
Themen-Optionen

Rechner herunterfahren, wenn sich niemand einloggt

Ein Thema von Master-of-Magic · begonnen am 13. Apr 2008 · letzter Beitrag vom 14. Apr 2008
Antwort Antwort
Seite 1 von 2  1 2      
Master-of-Magic

Registriert seit: 24. Jul 2006
37 Beiträge
 
Delphi 2005 Personal
 
#1

Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 18:17
Hallo Leute,

Ich hab heute endlich "Wake on Lan" über das Internet zum laufen bekommen. Da ich verhindern will, dass aus versehen (oder absichtlich?) jemand meinen PC ausm Inet startet, möchte ich einen kleinen Auto-Shutdown einbauen.

Situation: Wenn ich meinen PC hochfahre kommt der Login-Screen mit "Klicken sie auf ihren Benutzernamen um ...". Dort klicke ich auf meinen Namen und das wars - Passwort ist keins gesetzt.


Jetzt möchte ich, dass der PC wieder (komplett) heruntergefahren wird, wenn nach X Minuten immer noch kein Login stattgefunden hat (also niemand auf den Namen geklickt hat).

Gibt es eine Möglichkeit das einfach zu realisieren? Dem Befehl zum Ausschalten habe ich (psshutdown von SysInternals). Allerdings waren meine Versuche mit den geplanten Tasks bisher erfolglos.
Außerdem soll der Task ja auch nicht mehr ausgelöst werden, wenn der Login stattgefunden hat ...
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 18:23
Du könntest es mit einem Service probieren.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Benutzerbild von GuenterS
GuenterS

Registriert seit: 3. Mai 2004
Ort: Österreich > Bad Vöslau
760 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 18:25
Gibt es nicht einen Task der ausgeführt wird beim Systemstart?

Ich würde einen zweiten machen für OnLogon, der dann in der Registry einen bestimmten Wert (datum/Zeit) setzt, denn der erstere Task auswerten muss bevor dieser den pc runterfährt.
Günter
Pünktlichkeit ist die Fähigkeit vorherzusagen um wieviel sich der Andere verspäten wird.
  Mit Zitat antworten Zitat
Master-of-Magic

Registriert seit: 24. Jul 2006
37 Beiträge
 
Delphi 2005 Personal
 
#4

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 18:46
Ja, es gibt einen Task, der beim Systemstart ausgeführt wird. Das habe ich ja bereits versucht ...

Allerdings wird der aus irgendwelchen Gründen nicht ausgeführt. Es könnte damit zusammenhängen, das mein Admin-Account kein Passwort gesetzt hat - dann hätte sich die Sache erledigt (setzen will ich jetzt keins, da der PC eh bald platt gemacht wird).

Gibt es sonst noch Vorschläge, woran es liegen könnte bzw. wie man das machen könnte? Einen Service werde ich da jetzt sicher nicht schreiben
  Mit Zitat antworten Zitat
Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 18:53
Du musst ja nicht gleich nen Dienst schreiben..Du kannst auch ein Delphiprogramm schreiben und es als Dienst installieren. Da gibt es z.B. ein Programm Application To service (die frueheren!! Versionen waren Free).
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 18:57
Keinen Dienst schreiben, aber ein Delphi-Programm als Dienst installieren? Bitte was? In Turbo Delphi gibt es sogar eine Vorlage, um einen Dienst zu schreiben.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 19:02
Zitat von Apollonius:
Keinen Dienst schreiben, aber ein Delphi-Programm als Dienst installieren? Bitte was? In Turbo Delphi gibt es sogar eine Vorlage, um einen Dienst zu schreiben.
Er schrieb ja wohl.."einen Dienst werde ich nicht gleich schreiben"..oder?
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 19:05
Du hast in deinem vorigen Beitrag aber geschrieben, dass er ja keinen Dienst schreiben müsse, sondern auch einen Dienst schreiben und installieren könnte (etwas überspitzt formuliert). Das habe ich als Widerspruch aufgefasst.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
wido

Registriert seit: 2. Jan 2006
122 Beiträge
 
#9

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 19:06
Einfachste (dokumentierte) Möglichkeit, die MS für sowas vorsieht:
http://msdn2.microsoft.com/en-us/lib...83(VS.85).aspx

Ich bin mir im Moment nicht 100% sicher, ob die DLL permanent im winlogon.exe Prozess geladen bleibt (so dass Du prinzipiell einfach einen Timer starten kannst in nem separaten Thread der einfach nen 5 Minuten Countdown macht) oder ob Du den Cooldown in einen Service auslagern musst. Probiers halt einfach aus.
  Mit Zitat antworten Zitat
Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Rechner herunterfahren, wenn sich niemand einloggt

  Alt 13. Apr 2008, 19:08
Zitat von Apollonius:
Du hast in deinem vorigen Beitrag aber geschrieben, dass er ja keinen Dienst schreiben müsse, sondern auch einen Dienst schreiben und installieren könnte (etwas überspitzt formuliert). Das habe ich als Widerspruch aufgefasst.
Es sollte auch so ankommen
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz