Saber si un proceso esta corriendo, por su nombre

[[felipe88]]

Código Delphi [-]
//Añadir al uses TLHelp32

function TForm1.procrunning: Boolean;
var
  Proceso : TProcessEntry32;
  ProcessHandle : THandle;
  Sproceso   : Boolean;
  Nproceso : String;
begin
  Result := False;
  Proceso.dwSize := SizeOf(TProcessEntry32);
  ProcessHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(ProcessHandle, Proceso) then
  begin
    Nproceso:= String(Proceso.szExeFile);
    repeat Sproceso := Process32Next(ProcessHandle, Proceso);
      Nproceso:= String(Proceso.szExeFile);
      if Nproceso = 'elproceso.exe' then
        Result := True;
    until not Sproceso;
  end;
  CloseHandle(ProcessHandle);
end;

Solo cambian "elproceso.exe" por el nombre del proceso que necesitan y listo

[[felipe88]]

El autor original no fui yo, si algun moderador puede corregir que ademas esta duplicado el truco por favor... gracias