Ich denke das hier war gemeint...
Delphi-Quellcode:
function IsExeRunning(const AExeName: string): boolean;
var
h: THandle;
P: TProcessEntry32;
begin
P.dwSize := SizeOf(P);
h := CreateToolhelp32Snapshot(TH32CS_SnapProcess, 0);
try
Process32First(h, P);
repeat
Result := AnsiSameText(AExeName, ExtractFileName(P.szExeFile));
until Result or (not Process32Next(h, P));
finally
CloseHandle(h);
end;
end;
Konnte es aber noch nicht für die spezielle Anwendung testen. Für "allgemeingültige" Anwendungen gehts einwandfrei, habe die Änderung in meiner Routine aufgenommen.
kuba