Foros Club Delphi - Como saber si una aplicación se esta ejecutando?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Como saber si una aplicación se esta ejecutando? (https://www.clubdelphi.com/foros/showthread.php?t=85578)

Como saber si una aplicación se esta ejecutando?

Hola Club Delphi, con que código puedo saber si una aplicación cualquiera se esta ejecutando? :)

Hola DSK25.

Código:

#include<tlhelp32>



bool IsAppRunning(AnsiString ExeFileName)

{

  PROCESSENTRY32 Entry;

  HANDLE hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);



  Entry.dwSize = sizeof(PROCESSENTRY32);

  if (Process32First(hSnapShot, &Entry))

    while(Process32Next(hSnapShot, &Entry))

      if (strcmp(Entry.szExeFile, ExeFileName.c_str())== 0)

        return true;

  return false;

}

Ejemplo de uso:

Código:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

  if (IsAppRunning("mspaint.exe"))

    ShowMessage("Se está ejecutando");

  else

    ShowMessage("No se esta ejecutando");

}

Saludos :)

Gracias ecfisa ^\||/