Überprüfen ob Word, Excel, Access, Outlook, Powerpoint läuft

[amigage]

Hallo,

unter http://www.swissdelphicenter.ch/de/showcode.php?id=294 findet sich ein schöner Code, wie man überpüft ob eines der o.g. Programme läuft.

Kann es sein, dass es ab Delphi 2009 nicht mehr funktioniert?

Result := GetActiveObject(ClassID, nil, Unknown) = S_OK; gibt immer FALSE zurück, auch wenn Word und Excel geöffnet sind. Kann das jemand bestätigen und hat jemand eine alternative Lösung?

Danke!

amigage

[DeddyH]

Funktioniert es, wenn Du den Parameter "ClassName" als AnsiString deklarierst?

[amigage]

Hallo DeddyH,

nein, leider nicht. Obwohl es naheliegend gewesen wäre.

Ich habe den Code auch einmal mit einer älteren Delphi-Version kompiliert und da funktioniert es problemlos. Es muss also wirklich an Delphi 2009 liegen.

[simmi]

Versuche es einmal damit

Delphi-Quellcode:

function IsExeRunning(const AExeName: string): boolean;
var
  h: THandle;
  p: TProcessEntry32;
begin
  Result := False;

  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;

[amigage]

Entwarnung!

Nach einem Neustart des System klappte die Abfrage auch in Delphi 2009.
Warum auch immer Vermutlich war der OLE-Server nicht mehr vorhanden?

@simmi: das ist natürlich eine noch bessere Variante zu überprüfen, ob ein bestimmtes Programm läuft. Danke.