Saber si se esta ejecutando un programa externo

[jcaballeroo]

Hola, necesito una función que me diga si un programa externo esta abierto, ha de funcionar en cualquier S.O. Windows (NT/95/98/ME/XP/2000/2003AV).

[Toñico]

Hola, creo que este código te servirá. Está escrito en el create del formulario. He usado una variable boolean global que me indica si existe o no el programa.

  
Código Delphi [-]
 
procedure TFormulario.FormCreate(Sender: TObject);
     function SacaExe(MangoW:HWND):string;
     {Obtiene el EXE de una tarea}
     {get EXE of a task}
     var
         Datos  :TProcessEntry32;
         hID  :DWord;
         Snap  : Integer;
     begin
         GetWindowThreadProcessId(MangoW,@hID);
         Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
         try
             Datos.dwSize:=SizeOf(Datos);
             if(Process32First(Snap,Datos))then
             begin
                 repeat
                     if Datos.th32ProcessID=hID then
                     begin
                         Result:=StrPas(Datos.szExeFile);
                         Break;
                     end;
                 until not(Process32Next(Snap,Datos));
             end;
         finally
             Windows.CloseHandle(Snap);
         end;
    end;
    function ObtieneVentanas(Mango: HWND;
         Nada: Pointer): Boolean; stdcall;
    var
        sTemp:string;
    begin
        Result := True;
        {Mango es el handle de la tarea encontrada}
        {Añadimos el .EXE si no está ya añadido...}
        sTemp:=SacaExe(Mango);
        If sTemp = 'Nombre_del_ejecutable.exe' then bExistePrograma := True;
    end;
begin
    bExistePrograma := False;
    EnumWindows( @ObtieneVentanas, 0 );
end;

Un saludo.