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)...