Detectar si un proceso esta activo.
 

Hola qué tal?
Quisiera saber si hay la posibilidad de verificar si un proceso esta activo o corriendo...

Por ejemplo si el Bloc de Notas esta activo que de un mensaje.

He buscado otros ejemplos pero ninguno me funciona...

De antemano gracias.

Hola deliriun.

Proba de este modo,

Código Delphi [-]
uses tlhelp32;

function IsAppRunning(const ExeFileName: string): Boolean;
var
  Entry: PROCESSENTRY32;
  hSnapShot: THandle;
begin
  hSnapShot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  Entry.dwSize:= SizeOf(PROCESSENTRY32);

  Result:= False;
  if Process32First(hSnapShot, Entry) then
    while Process32Next(hSnapShot, Entry) and not Result do
      if Entry.szExeFile = ExeFileName then
        Result:= True;
  CloseHandle(hSnapSHot);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsAppRunning('notepad.exe') then
    ShowMessage('Se está ejecutando')
  else
    ShowMessage('No se está ejecutando');
end;

Saludos :)

Si te interesa saber si un proceso de 16 bits se ejecuta, sigue este hilo en C/C++.

En delphi:

Código Delphi [-]
function VDMEnumTaskWOWEx(dwProcessId: DWORD; fp: pointer; lparam: integer): integer; stdcall; external 'VdmDbg.dll' name 'VDMEnumTaskWOWEx';
function VDMEnumProcessWOW(fp: pointer; lparam: integer): integer; stdcall; external 'VdmDbg.dll' name 'VDMEnumProcessWOW';

type
TRuningProcess16 = record
  Name: Pchar;
  Running: boolean;
end;
PTRuningProcess16 = ^TRuningProcess16;


// Enumera procesos
function ProcessTasks(dwThreadId: DWORD; hMod16, hTask16: WORD; pszModName, pszFileName: PCHAR; PE: integer): boolean; stdcall;
begin
   if AnsiContainsText(pszFileName, PTRuningProcess16(PE).Name) then
   begin
      PTRuningProcess16(PE).Running:= true;
      Result:= true;
      exit;
   end;
   Result:= false;
end;

// Enumera Máquinas Virtuales
function ProcessVDMs(dwProcessId, dwAttrib: DWORD; PE: integer): boolean; stdcall;
begin
   VDMEnumTaskWOWEx(dwProcessId, @ProcessTasks, PE);
   Result:= PTRuningProcess16(PE).Running;
end;

function IsRunning16_(Name: string): boolean;
var
  PE: TRuningProcess16;
begin
  PE.Name:= PCHAR(Name);
  PE.Running:= false;

  // Buscando...
  VDMEnumProcessWOW(@ProcessVDMs, integer(@PE));
  Result:= PE.Running;
end;

Combinar una llamada al código de ecfisa, con otra a sRunning16_:

Código Delphi [-]
IsRunin16_32(ExeFileName: String): BOOL;
begin
  Result:= IsAppRunning(ExeFileName) or IsRunning16_(ExeFileName);
end;

Saludos.

Se supone que también podrías hacerlo utilizando la función FindWindows (si buscas en el clubdelphpi encontrarás muchos hilos al respecto) o también mediante WMI (link).