Shutdown - HerunterfahrProgramm (v 1.11)

[TeronG]

Nette Sache das nur kann dein Programm auch "Updates Installieren und herunterfahren"?
Bekomme sons mecker weil ich nie Updates Insalliere ... Kann mein mini ShutDown nämlich "auch" net ):

PS/BTW: Deine Signatur ist veraltet ... (1.08 --> 1.09) ^^

[Aurelius]

Was denn für Updates? Windows-Updates? :gruebel:

[TeronG]

Jo!
Wenn sich das System Updates holt (aber noch nicht Installiert) hat man diese Option beim Herunterfahren.

[Aurelius]

Nein, das kann das Programm nicht. Stelle ich mir auch recht schwierig vor so etwas einzubauen^^

[Aurelius]

Ich habe mal wieder an Shutdown gearbeitet und die neue version wie immer im ersten beitrag hinterlegt.

Geändert: verbesserten Shutdown sobald ein Fenster geschlossen wird

[banick]

Also erst mal einen Lob an den Programmierer, ich find das Tool top. Aber ich glaube einen kleinen Bug entdeckt zu haben: zehn sec werden beim Countdown nicht als :10 sondern schon mit Vornull also :010 angezeigt.

Ich hätte mal noch ne kleine Bitte: Kann mir mal jemand den Befehl posten der dann zum runterfahren führt, mit allen benötigten uses (heißt das so??) und allen Parametern für ein ganz einfaches runterfahren. Ich hab den Befehl zwar gefunden, aber wenn ich den abschreibe fehlen laut Delphi entweder Parameter oder es passiert einfach garnichts.

Mein (ziemlich primitiver Quellcode) für einen Sleeper:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 Zeit:integer;

begin
 Zeit:=strtoint(Edit1.Text);
 Zeit:=Zeit*1000;
 sleep(Zeit);
 ExitWindowsEx(EWX_shutdown,0) // wie lautet diese zeile richtig??
end;

Benutze D7 Enterprise

Außerdem wollteich noch fragen ob es möglich ist als "Shutdown-Grund" auch das trennen der Netzwerkverbindung möglich ist. Wäre echt toll wenn du das programmieren/mir erklären könntest.

MfG und schon mal DANKE
banick

[bitsetter]

Zitat:

Zitat von banick

Ich hab den Befehl zwar gefunden, aber wenn ich den abschreibe fehlen laut Delphi entweder Parameter oder es passiert einfach garnichts.

Hallo,

stimmt doch soweit alles:

Delphi-Quellcode:

uses Windows; ...
Windows.ExitWindowsEx(Windows.EWX_shutdown, 0)

Falls dann nichts passiert weil dir zum Beispiel die Rechte dafür fehlen, dann nimmst du den unteren Code aus der Code-Library

Der Aufruf

Delphi-Quellcode:

ExitWin(EWX_SHUTDOWN)

[banick]

Danke für die schnelle Hlfe, jetzt geht´s. Mir haben wirklich die Rechte gefehlt :-D

Bleibt nur noch die Frage mit dem Abfragen des Lan-Status. Vielleicht weiß da ja auch irgend jemand Rat

Gruß, banick

Edit:
Hab´s selber gefunden:
http://www.delphipraxis.net/internal...ect.php?t=6541

Also langsam fang ich an an mir zu zweifeln:
ich hab den Quellcode einfach übernommen. Aber dann sagt der mir das die Verbindung immer besteht. Etwas kürzer gefasst lautet die Funktion ja:

Delphi-Quellcode:

function Lanstatus: Boolean;
begin
  Result := (GetSystemMetrics(SM_NETWORK)and $01) = $01;
end;

aber was heißt/bedeutet $01?? Ich kann dafür auch z.B. §02 schreiben, völlig egal, er bringt immer true.Ich hab mir überlegt, das ich doch eigentlich das §01 auf der linken Seite auch weglassen könnte, weil $01 müsste ja logischer weiße gleich $01 sein (oder??). Aber ohne das and $01 bringt er dann immer false. WARUM???

Hier noch mal der kurze Quellcode:

Delphi-Quellcode:

function Lanstatus: Boolean;
begin
  Result := (GetSystemMetrics(SM_NETWORK)and $02) = $02;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Lanstatus=false then Edit1.Text:='keine Verbindung';
if Lanstatus=true then Edit1.Text:='Verbindung besteht';

end;

Bin auch über eine direte Hilfe per ICQ oder MSN glücklich:
[e-mail]
221528661

[Aurelius]

Und mit dem Original-Code klappt das nicht?

Sichergestellt dass auch wirklich keine Verbindung besteht, d.h. alle LAN-Kabel getrennt sowie W-Lan deaktiviert?

Ach ja: Danke für die Blumen :D Den Bug kenn ich schon, aber da ich nicht mehr am PRogramm arbeite...

[banick]

Da ist garantiert keine Verbindung mehr (beide Symbole in der Taskleiste mit einem schönen roten Kreuz). Nur mal so zum eigentlichen Verständniss: Was heißt den nun eigentlich dieses $01 ??