Erkennen ob eine EXE aktiv ist...

[RomanK]

Aus dem EasyDelphiHelper

Zitat:

Läuft ein bestimmtes Programm?


Folgende Funktion überprüft, ob eine bestimmte EXE-Datei gestartet wurde. Als Parameter muss der Funktion der Pfad+Dateiname übergeben werden. Es wird versucht eine Datei mit dem gleichen Dateinamen anzulegen.

Delphi-Quellcode:

function ExeFileIsRunning(ExeFile: string): boolean;
var
  H:word;
begin
  H := CreateFile(PChar(ExeFile),
                  GENERIC_READ,
                  0,
                  nil,
                  OPEN_EXISTING,
                  0,
                  0);
  Result := (H >= 65535);
  CloseHandle(H);
end;