Problem mit IsExeRunning

[kuba]

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