Problem mit IsExeRunning

[kuba]

Hallo,

ich nutze seit längerer Zeit die Routine IsExeRunning um festzustellen ob ein Programm gestartet ist:

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 := AnsiUpperCase(AExeName) = AnsiUpperCase(P.szExeFile);
      until Result or (not Process32Next(h, P));
    finally
      CloseHandle(h);
    end;
  end;

Das hat bisher super funktioniert, doch jetzt kommt ein Programm daher bei dem es nicht zu funktionieren scheint. Nach dem Programmstart erscheint ein Anmeldefenster, das Programm wird von IsExeRunning gefunden. Nach der Anmeldung wird es dann nicht mehr gefunden, es befindet sich aber immer noch in der Taskliste. Wie kann das sein ??

Ich benutze IsExeRunning in einem NT-Service.

KUBA

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

[Bernhard Geyer]

NT-Service? Ab Vista wird der NT-Service keinen Zugriff mehr auf den Desktop des angemeldeten Benutzers haben.

Mit dem Anmeldebildschirm: Meinst du hier evtl. den Dialog der von der UAC kommt?

[kuba]

Ach ja, Betriebssystem ist Windows XP

Mit Anmeldebildschirm meine ich, dass es sich um eine Client-Anwendung handelt. Da kommt dann nach dem Start ein Anmeldebildschirm und wenn man die Zugangsdaten richtig eingegeben hat wird eine Verbindung zum Server hergestellt.

KUBA

[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?