Beim runterfahren automatisch Prozesse beenden?

[hircusmutzus]

Hi,
mal wieder ne kleine Frage: Wenn ich nach dem Beispiel den Rechner Reboote bzw. Runterfahre, werden dann auch Programme wie z.B. Winamp, Word, Outlook etc. beendet? Wenn nicht, wie kann man so was machen?
Ich will mir nämlich nen "Dimmer" für den PC machen. Da ich alle Musik auf dem PC hab und beim Abends-im-Bett-liegen gerne noch Musik höre, könnte ich dann einen Countdown einstellen, und dann würde der PC die offenen Programme beenden und runterfahten!

Danke für Infos,
MfG Matthias Volland

[alcaeus]

Mit Hilfe von WinAPI-FUnktionen kannst du Prozess-IDs herausfinden und diese dann beenden. Falls du dich nicht mit WinAPI auskennst, kann ich helfen.

[hircusmutzus]

Danke, also ich kenn mich damit nicht wirklich aus !
Naja, hast du irgendwie ein tut, einen Quelltext o.ä.?

MfG Matthias Volland

[Illuminator-23-5]

wenn du EWX_FORCE als parameter nimmst, brauchst du dich nicht darum kümmern!! da müsste er theroretisch alle progs von alleine abschießen!

andererseits könntest du alle handles beenden, da glaube ich laufen die prozesse aber im hintergrund noch weiter [bin aber nicht ganz sicher]

[hircusmutzus]

@Illuminator-23-5: könntest du vielleicht etwas präziser werden??? Ich bin hier grad informationstechnisch ganz auf der Höhe!!!

MfG Matthias Volland

[alcaeus]

Mit OpenProcess(PROCESS_ALL_ACCESS, False, Proc_ID) kannst du einen Prozess öffnen. Dann mit ExitProcess(0) den Prozess beenden.
Dazu musst du aber zuerst die ganzen Prozess-IDs in einer Liste eingeben, sorry, ich weiß auch nicht wie man diese findet.

[hircusmutzus]

@alcaeus: Jo danke, ich werd mich noch mal weiter umschauen! Irgendwie hab ich mir das unkomplizierter vorgestellt!!!
Aber trotzdem Danke für die Mühe!

MfG Matthias Volland

[Illuminator-23-5]

du könntest
1. ExitWindowsEx(EWX_FORCE, 0); dadurch schaltet er den PC einfach ab[eine art reset ohne neu zu starten)
2. du könntest durch folgenden source alle handles herausfinden:

var
H: HWnd;
begin
h := Application.Handle;
while h > 0 do begin
SetLength(handleList, length(handleList) + 1);
HandleList[Length(HandleList)-1] := h;
h := getnextwindow(h,GW_HWNDNEXT);
end;
end;

die dann alle beenden und dann mit ExitWindowsEx(EWX_SHUTDOWN, 0) herunterfahren, bin mir aber nicht sicher, dass das klappt

ich persönlich würde das 1. nehmen

[hircusmutzus]

Ist es nicht "ungesund" den PC quasi immer zu resetten?

MfG Matthias Volland

P.S.: Ich hab auch noch grad was in der Code-Library von Luckie gefunden... -> http://www.delphipraxis.net/internal...light=prozesse

[alcaeus]

Ja,du könntest diesen Code verwenden, die Prozesse in einer CheckListBox auflisten und dann alle markierten in einer Timer-ROutine "abschießen". Das müsste auf alle Fälle funktionieren.