Laufende Prozesse abfragen - geht, geht nicht

[creehawk]

Moin Moin.

Bei der Installation von Spieldateien muss ich vor dieser Installation prüfen, ob das dazugehörige Spiel läuft. Dazu verwende ich die nachstehende Prozedur um die laufenden Prozesse aufzulisten.

Delphi-Quellcode:

uses TlHelp32;
procedure GetProcessList(const aProcessList: TStrings);
var
  Snap: THandle;
  ProcessE: TProcessEntry32;
begin
  aProcessList.Clear;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessE.dwSize := SizeOf(ProcessE);
    if Process32First(Snap, ProcessE) then
      Repeat
        aProcessList.Add(ProcessE.szExeFile);
      Until not Process32Next(Snap, ProcessE)
    else
      RaiseLastOSError;
  finally
    CloseHandle(Snap);
  end;
end;

... und die folgende schlichte Abfrage um dann eben festzstellen, ob oder ob nicht.

Delphi-Quellcode:

Prozesse:=TStringlist.Create;
GetProcessList(Prozesse);
For I:= 0 to Prozesse.Count - 1 do
   begin
      If Prozesse.Strings[I] = ExeNameString then IsActive := 1;
   end;

Die Liste wird anstandslos erstellt und enthält auch - wenn das Spiel denn läuft - den Namen der laufenden Exedatei.

Tja. Mal geht es, mal geht es nicht. 'Emperor.exe' geht nicht, 'CaesarIV.exe' geht - mal als Beispiel.

Was kann das sein?

creehawk

[EWeiss]

Schon mal geschaut ob 'Emperor.exe' überhaupt als Prozess gelistet ist?
Mitunter sind es irgendwelche launscher welche den Prozess starten diesen aber nach dem start auch wieder zerstören.
Mal den Process Explorer von Sysinternals verwenden um zu prüfen ob die Prozesse dort aufgelistet werden.
Bzw. prüfen was da vorgeschaltet wird.

gruss

[Jasocul]

Wenn die Liste das Programm enthält, dann schlägt wohl der String-Vergleich fehl.
Spontan fallen mir diese Klassiker ein:
- Case-Sensitive
- Leading/Trailing Blanks
- "unsichtbare" Zeichen

[DeddyH]

Was heißt denn "geht nicht"? Ist das Spiel nicht in der Liste, oder findet Dein Vergleich den Eintrag nicht?

[creehawk]

Also Case Sensitve haben ich schon exerziert, Uppercase und so - keine Reaktion.

Die Prozesse sind laut einem externen Programm vorhanden, ich kann ausserdem über Windows auch in das Spiel einschalten, es läuft definitiv.

Unsichtbare Zeichen? Wie kann ich das rauskriegen?

Edit: Der Vergleich geht nicht, das Spiel (also die Exe) ist in der Liste....

creehawk

[Jasocul]

Du verlässt dich auf externe Programme? :wink:
Deine Prozessliste ist eine Stringlist. Mache einfach ein SaveToFile und schau dir genau an, was dort enthalten ist. Dann kannst du vermutlich auch "unsichtbare" Zeichen sehen. Notfalls mit einem Hex-Editor.

[EWeiss]

Zitat:

Zitat von Jasocul (Beitrag 1390603)

Du verlässt dich auf externe Programme? :wink:
Deine Prozessliste ist eine Stringlist. Mache einfach ein SaveToFile und schau dir genau an, was dort enthalten ist. Dann kannst du vermutlich auch "unsichtbare" Zeichen sehen. Notfalls mit einem Hex-Editor.

Mal den Process Explorer von Sysinternals verwenden um zu prüfen ob die Prozesse dort aufgelistet werden.
Und mit deinem String vergleichen.

gruss

[TiGü]

Delphi-Quellcode:

Prozesse:=TStringlist.Create;
GetProcessList(Prozesse);
For I:= 0 to Prozesse.Count - 1 do
   begin

      OutputDebugString(PChar('Prozess: ' + Prozesse.Strings[I] + ' - ' + ExeNameString)); // was erscheint denn im Eventlog?

      If Prozesse.Strings[I] = ExeNameString then 
        IsActive := 1;
   end;

[DeddyH]

Mal aus der hohlen Hand:

Delphi-Quellcode:

Prozesse := TStringlist.Create;
try
  GetProcessList(Prozesse);
  For I := 0 to Prozesse.Count - 1 do
    If AnsiSameText(Trim(Prozesse[I]), ExeNameString) then 
      begin
        IsActive := 1;
        break;
      end;
finally
  Prozesse.Free;
end;

[CCRDude]

Ich würde mir auch mal die TStringList nehmen und mit dem Task-Manager auf 32/64 bit bzw. elevated/non-elevated vergleichen, ich meine mich zu erinnern, dass es da Einschränkungen gab.

Ansonsten, solange die Liste der Spiele überschaubar bleibt, würde ich eher z.B. schauen, ob die Spiele einen eindeutig benannten Mutex verwenden, das dürfte schneller gehen als CreateToolhelp32Snapshot.

[taveuni]

Hast Du mal den ProcessExplorer gestartet? Ist der Prozess dort unter dem Namen den Du erwartest aufgeführt? Wenn ja unter welchem Benutzer läuft er? Möglicherweise ist er unterschiedlich zu Deinem.

[creehawk]

Donnerwetter, soviele Antworten und Möglichkeiten....

Ich ackere das jetzt mal alles durch und erstatte Bericht.

Ich danke vielmals für die Hilfe!

creehawk

[creehawk]

Jetzt wird es ganz lustig.

Ich habe noch immer die hier gepostete erste Version in der IDE am bearbeiten. Mehr zufällig habe ich die IDE beendet und die zuletzt erzeugte EXE (Debugerzeugung) direkt gestartet.

Ergebnis:
Zugriffsverletzung bei Adresse 005f130F in Modul CSetup.exe : Lesen von Adresse 00000000

Naja, IDE angeschmissen, was ist los? Nix. In der IDE kommt dieser Fehler nicht. Also mal die Release Konfiguration eingestellt. In der IDE : alles OK. Ausserhalb : Fehler. Dann den ganzen Abschnitt mit GetProzesslist etc. ausdokumentiert. Erzeugen. In der IDE : Läuft. Ausserhalb der IDE : Läuft.

Was das?

creehawk

[creehawk]

Hat sich erledigt.

Ich starte normalerweise mit zwei Parametern. Wenn die nicht da sind....

creehawk

[Delphi-Laie]

Zitat:

Zitat von creehawk (Beitrag 1390590)

Moin Moin.

Bei der Installation von Spieldateien muss ich vor dieser Installation prüfen, ob das dazugehörige Spiel läuft. Dazu verwende ich die nachstehende Prozedur um die laufenden Prozesse aufzulisten.

Läßt sich das nicht so simpel austricksen, daß man die zu startende Exe-Datei vor dem Starten einfach umbenennt, sodaß die Prüfung ins Leere läuft?

[creehawk]

@deddyh

AnsiSameText funktioniert anstandslos.

Warum?

Die Typen? Also der Name der EXE aus der GetProzessList kommt als array of [0...256] Char in die Stringlist, den Vergeleichswert hole ich aus einer XML als WideString(MSXML).

Oder was?

creehawk

[DeddyH]

System.SysUtils.AnsiSameText

Zitat:

Vergleicht zwei Strings unter Berücksichtigung des aktuellen Gebietsschemas ohne Beachtung der Groß-/Kleinschreibung.

AnsiSameStr vergleicht die beiden Strings S1 und S2, ohne dabei zwischen Groß- und Kleinschreibung zu unterscheiden. Der Vergleich wird von der aktuellen Ländereinstellung gesteuert. Der Rückgabewert ist true, wenn die Strings denselben Wert haben; andernfalls false.

Da wird halt noch so einiges berücksichtigt, was ein einfacher "="-Vergleich nicht tut. Was letztendlich genau den Unterschied in Deinen Strings ausmacht, vermag ich auch nicht zu sagen.