Como saber si una aplicación se esta ejecutando?

[DSK25]

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

[ecfisa]

Hola DSK25.

#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:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (IsAppRunning("mspaint.exe"))
    ShowMessage("Se está ejecutando");
  else
    ShowMessage("No se esta ejecutando");
}

Saludos

[DSK25]

Gracias ecfisa