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