Klasse zum Beenden eines Prozesses

[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