Como saber si una aplicacion se esta ejecutando?

[Halfo]

A ver te cuento lo que yo hice para chequear si en una maquina esta corriendo el Emule (de entrada decirte que si se trata de una maquina remota no se como acceder a esa información sin instalar un espia o servidor que pueda correr en dicha maquina) . aqui te pongo el codigo del espia que use para detectar en si corria el emule. Consta de dos funciones, y deberias cambiar el texto "emule" por el que te sirva en tu caso (esta en C++Builder)
Lo saque del MSDN:
//---------------------------------------------------------------------------
bool __stdcall EnumProc(HWND hWnd,/*LPARAM*/long/*lp*/)
{
unsigned long* pPid; //LPDWORD
unsigned long result; //DWORD
void *hg; //HGLOBAL
unsigned long id;

if(hWnd==NULL)
return false;

hg = GlobalAlloc(GMEM_SHARE,sizeof(unsigned long));
pPid = (unsigned long *)GlobalLock(hg);

result = GetWindowThreadProcessId(hWnd,pPid);

if(result){
char title[110];
char className[95];
char totalStr[256];
GetClassName(hWnd,className,95);
GetWindowText(hWnd,title,110);
id=*pPid;
ultoa(id,totalStr,10);
strcat(totalStr,"\t");
if(title){
strcat(totalStr,title);
strcat(totalStr,"\t");
}
strcat(totalStr,className);
//FormMain->ListBox1->Items->Add((AnsiString)totalStr);
if (ServerForm->Procesos)
ServerForm->Procesos->Add((AnsiString)totalStr);
}
else{
GlobalUnlock(hg);
GlobalFree(hg);
return false;
}
GlobalUnlock(hg);
GlobalFree(hg);
return true;
}
//---------------------------------------------------------------------------
bool __fastcall TServerForm::CheckEmule()
{
EmuleConectado=false;
Procesos = new TStringList();
try
{
long lp=0;
EnumWindows((WNDENUMPROC)EnumProc,lp);

for (int indice=0;indice<Procesos->Count;indice++)
if (Procesos->Strings[indice].AnsiPos("eMule")!=0)
{
EmuleConectado=true;
break;
}
}
__finally
{
delete Procesos;
}
Escribir("CheckEmule " + AnsiString((short)EmuleConectado));
return EmuleConectado;
}
//---------------------------------------------------------------------------