Problem mit IsExeRunning

[kuba]

Zitat von DeddyH:

Und Du bist ganz sicher, dass es derselbe Exename ist? Nicht, dass das Programm sich nach der Anmeldung beendet und ein anderes mit einem sehr ähnlichen Namen startet.

Ja bin ganz sicher, das hat mich total verblüfft. Vor allem habe ich dann ein kleines Testprogramm geschrieben und als Benutzer gestartet. Im Testprogramm verwende ich genau die gleiche IsExeRunning Routine und das Testprogramm findet die Anwendung in der Taskliste. Sowohl vor der Anmeldung als auch nach der Anmeldung am Server. Wie kann das nur sein ??

KUBA

[kuba]

Habe inzwischen eine Lösung gefunden ...

KUBA

[taveuni]

Eher eine Scheinlösung.

Dein Beispiel:

Result := AnsiUpperCase(AExeName) = AnsiUpperCase(P.szExeFile);


Die "Lösung":

Delphi-Quellcode:

if pos(Exename, pe32.szExeFile) <> 0 then
          result := pe32.th32ProcessID;

[himitsu]

Wenn AExeNamen wirklich nur der Name der Exe-Datei ist, ohne Pfadangabe, dann besser
Result := AnsiSameText(AExeName, ExtractFileName(P.szExeFile)); .

Pos('Programm.exe', 'C:\Programme\Spezialprogramm.exe) > 0 .
würde ja sonst True liefern

[kuba]

verstehe ich jetzt nicht ganz ...

habs so gemacht und geht:

Delphi-Quellcode:

//if not IsExeRunning ('ax.exe') then
        hProcess := GetProcessHandleFromID(GetProcessID('ax.exe'));
        if hProcess = 0 then

oder:

Delphi-Quellcode:

//if IsExeRunning ('ax.exe') then
        hProcess := GetProcessHandleFromID(GetProcessID('ax.exe'));
        if hProcess <> 0 then

aber warum IsExeRunning bei ax.exe nicht funktioniert ist schon seltsam, zumal ax.exe in der Taskliste zu sehen ist.

KUBA

[musicman56]

Zitat:

aber warum IsExeRunning bei ax.exe nicht funktioniert ist schon seltsam, zumal ax.exe in der Taskliste zu sehen ist.

Kann es sein, dass ax.exe nur ein einziges Fenster hat, das visible=false ist?

[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