Klasse zum Beenden eines Prozesses

[Luckie]

Zitat von s.h.a.r.k:

Von diesem Schließen-Gedöns selbst habe ich keine Ahnung Habe da nur an das Herunterfahren von Windows gedacht. Das gibt jeder Anwendung ja auch x Sekunden Zeit. Wenn die Anwendungen nicht "fähig" ist, sich in der Zeit zu beenden, dann wird es eben mit Gewalt beendet -- bist du nicht willig....

Ich denke eher, da macht Windows einfach mit dem Runterfahren weiter.

Zitat:

Das mit dem ersten Programm in der Liste ist halt so eine Sache. Vielleicht ist es genau das Programm welches man nicht schließen will, wenn zwei offen sind

Wer diese Klasse benutzt sollte schon wissen, was er tut und sich der Unlänglichkeiten bewusst sein.

Zitat:

Außer der Benutzer hat mehr Informationen, wie die ProcessID z.B.

Das wäre eine Option, dass man den Prozess über die ID identifiziert.

Zitat:

Ist das Schließen eines Prozesses auf einem anderen Rechner irgendwie möglich? So à la Fernwartung.

Das könnte man eventuell über WMI erreichen. Aber mit WMI stehe ich auf Kriegsfuß.

Zitat:

- Wie sieht es mit einer Lizenz für den Quellcode aus?

OpenSource.

Zitat:

- und was mir gerade aufgefallen ist: TProcessEntry32 <- heißt das, dass nur 32-bit Programme erkannt werden? Oder klappt das auch mit 64-bit Programmen?!

Dazu kann ich leider nichts sagen, weil ich mich dies bezüglich noch nicht eingearbeitet habe.

[himitsu]

Zitat:

if ... = true then

Das hätt ich jetzt nicht von dir erwartet.

Zitat:

if pos(LowerCase(FProcessFile), LowerCase(pe32.szExeFile)) <> 0 then

Hier wäre es wohl besser zu prüfen, ob sich der Name am Ende des Strings befindet,
nicht daß jemand eine Datei sucht und zufällig ein Verzeichnis genauso heißt.
Und ob es sich auch um den kompletten Namen handelt,
nicht daß man nach "ample.exe" sucht und die "example.exe" schließt.

eventuell so? (k.A. ob's richtig ist)

Delphi-Quellcode:

s := LowerCase(FProcessFile);
s2 := '\' + LowerCase(pe32.szExeFile);
if (s = '') or (s[1] <> '\') then Insert('\', s, 1);
if Pos(s, s2) = Length(s2) - Length(s1) + 1 then ...

oder

Delphi-Quellcode:

s := LowerCase(FProcessFile);
s2 := '\' + LowerCase(pe32.szExeFile);
if (s = '') or (s[1] <> '\') then Insert('\', s, 1);
Delete(s2, 1, Length(s2) - Length(s1));
if s = s2 then ...

Zitat:

Vielleicht wäre ein Filter auch hilfreich: Schließe Prozess...

- von dem ein Fenster den Text xyz enhält

[Luckie]

Zitat von himitsu:

Zitat:

if ... = true then

Das hätt ich jetzt nicht von dir erwartet.

Autsch, das passiert, wenn man alten Code per Copy and paste übernimmt.

Zitat:

Hier wäre es wohl besser zu prüfen, ob sich der Name am Ende des Strings befindet,
nicht daß jemand eine Datei sucht und zufällig ein Verzeichnis genauso heißt.

Eine Datei oder Verzeichnis ist kein Prozess und taucht nict in der Prozessliste auf. Was soll da passieren, außer, dass der Prozess nicht gefunden wird?

Zitat:

Und ob es sich auch um den kompletten Namen handelt,
nicht daß man nach "ample.exe" sucht und die "example.exe" schließt.

Das wäre wohl sinnvoll.

Zitat:

eventuell so? (k.A. ob's richtig ist)

Delphi-Quellcode:

s := LowerCase(FProcessFile);
s2 := '\' + LowerCase(pe32.szExeFile);
if (s = '') or (s[1] <> '\') then Insert('\', s, 1);
if Pos(s, s2) = Length(s2) - Length(s1) + 1 then ...

oder

Delphi-Quellcode:

s := LowerCase(FProcessFile);
s2 := '\' + LowerCase(pe32.szExeFile);
if (s = '') or (s[1] <> '\') then Insert('\', s, 1);
Delete(s2, 1, Length(s2) - Length(s1));
if s = s2 then ...

Warum so umständlich?
if LowerCase(FProcessFile) = LowerCase(pe32.szExeFile)...

[mleyen]

Ein setter für ProcessFile ist nötig, da die PID nur im Konstruktor gehohlt wird. Nicht das falsche Prozesse ungewollt beendet werden.

[Luckie]

Zitat von mleyen:

Ein setter für ProcessFile ist nötig, da die PID nur im Konstruktor gehohlt wird. Nicht das falsche Prozesse ungewollt beendet werden.

Da muss ich um eine nähere Erklärung bitten. Man könnte aber einen Setter einführen, um die Klasse bei mehreren Gebrauch hintereinander nicht immer neu erstellt werden muss. Aber macht man das auch?

[mleyen]

Zitat von Luckie:

Da muss ich um eine nähere Erklärung bitten.

Nunja, also das write in:

Delphi-Quellcode:

public
  property ProcessFile: string read FProcessFile write FProcessFile;

bringt momentan nichts, außer evtl ungewollte Verhaltensweisen.

[Luckie]

Oh. Danke für den Hinweis.

[himitsu]

Zitat von Luckie:

Eine Datei oder Verzeichnis ist kein Prozess und taucht nict in der Prozessliste auf. Was soll da passieren, außer, dass der Prozess nicht gefunden wird?

Hab ich das behauptet?

C:\Programme\Example.exetus\Demo.exe und jetzt lass mal dein POS('ample.exe' darauf los.

Zitat von Luckie:

Warum so umständlich?
if LowerCase(FProcessFile) = LowerCase(pe32.szExeFile)...

Könnt ich dich auch fragen
if AnsiSameText(FProcessFile, pe32.szExeFile) then... .
PS: LowerCase = nur A bis Z wird übersetzt
AnsiLowerCase = alle Zeichen (ab D2009 ist AnsiLowerCase standardmäßig Unicode)

Und warum so lang ... so könnte man auch nach Demo.exe , Example.exetus\Demo.exe oder C:\Programme\Example.exetus\Demo.exe suchen.

(und wehe einer sagt was über meine exetus-Wortschöpfung )

[mirage228]

Zwei Vorschläge auch von mir:
1. Der Parameter im Konstruktor sollte const sein, da er nicht verändert wird.
2. Ich würde eine statische Klassenfunktion mit Dateiname und Timeout vorschlagen, die ohne Umwege über eine Instanziierung einen Prozess killen kann. Für einfach gelagerte Fälle oder falls man keine Wiederverwendung anstrebt, fände ich das ganz praktisch.

Viele Grüße

[Luckie]

@himitsu: Wenn ich mich recht erinnere steht pe32.szExeFile nur der Prozessname, also kein Pfad.

@Mirage: Erster Vorschlag angenommen, zweiter muss noch überdacht werden.