¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?

Board index FiveWin para Harbour/xHarbour ¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?
Posted: Wed Mar 26, 2025 07:32 PM

Buenas tardes a todos, existe algún comando para COMPROBAR SI OUTLOOK.exe ESTÁ ABIERTO EN EL PIE DE PÁGINA DE WINDOWS?

Porque solo quiero usar el comando:

Code: Select all Collapse

// PARA DESLIGAR O OUTLOOK, SE ESTIVER ABERTO AINDA. Joao
   WaitRun( "CMD /C TASKKILL.EXE /IM OutLook.exe /F", 0 )

Si OutLook.exe está en uso/abierto.

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: ¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?
Posted: Wed Mar 26, 2025 09:15 PM

Ya preguntaste a la sra. Clau ?

1 := Usando Windows API con Harbour:

Code: Select all Collapse

// Método para verificar si Outlook está abierto
FUNCTION IsOutlookRunning()
    LOCAL hWnd
    
    // Buscar la ventana de Outlook
    hWnd := FindWindow("OlMainFrame", NIL)
    
    RETURN hWnd != 0

2 := Usando función de proceso del sistema:

Code: Select all Collapse

FUNCTION CheckOutlookProcess()
    LOCAL aProcessList, lOutlookRunning := .F.
    LOCAL i

    // Obtener lista de procesos
    aProcessList := GetProcessList()
    
    // Recorrer procesos buscando Outlook
    FOR i := 1 TO LEN(aProcessList)
        IF UPPER(aProcessList[i]) == "OUTLOOK.EXE"
            lOutlookRunning := .T.
            EXIT
        ENDIF
    NEXT

    RETURN lOutlookRunning

3 := Usando Windows API directamente:

Code: Select all Collapse

FUNCTION CheckOutlookProcess()
    LOCAL aProcessList, lOutlookRunning := .F.
    LOCAL i

    // Obtener lista de procesos
    aProcessList := GetProcessList()
    
    // Recorrer procesos buscando Outlook
    FOR i := 1 TO LEN(aProcessList)
        IF UPPER(aProcessList[i]) == "OUTLOOK.EXE"
            lOutlookRunning := .T.
            EXIT
        ENDIF
    NEXT

    RETURN lOutlookRunning

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?
Posted: Thu Mar 27, 2025 11:11 AM

Buenos dias César,

Code: Select all Collapse

// Método para verificar si Outlook está abierto
FUNCTION IsOutlookRunning()
    LOCAL hWnd
    
    // Buscar la ventana de Outlook
    hWnd := FindWindow("OlMainFrame", NIL)
    
    RETURN hWnd != 0

NO FUNCIONA.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?
Posted: Thu Mar 27, 2025 11:16 AM

Code: Select all Collapse

Error: Unresolved external '_HB_FUN_GETPROCESSLIST' referenced from C:\ACBRREAL\
ACBRREAL.OBJ

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?
Posted: Thu Mar 27, 2025 12:35 PM

Resuelto,

https://fivewin.com.br/index.php?/topic/42973-verificar-se-o-outlookexe-est%C3%A1-aberto-no-radap%C3%A9-do-windows/

Code: Select all Collapse

/*
* Verificar se um Exe esta sendo executado e podendo at‚ derruba-lo
* Parametros: _cExe, _nKill
* Retorno: Retorno - .t. se estiver rodando
*
* Autor: toya
*/

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL _cExe := "OutLook.exe", _nKill := 2, lOk

   lOk := EstaRodandoKillExe( _cExe, _nKill )

   ? lOk

RETURN NIL
// Is the executable running?
FUNCTION EstaRodandoKillExe( _cExe, _nKill )

   LOCAL Retorno := .F.
   LOCAL oScriptObj
   LOCAL oWmiService
   LOCAL oListaProcess
   LOCAL oProcessos

   hb_default( @_nKill, 0 )

   oScriptObj    := CREATEOBJECT( "wbemScripting.SwbemLocator" )
   oWmiService   := oScriptObj:ConnectServer()
   oListaProcess := oWmiService:ExecQuery( "select * from Win32_Process where Name='" + _cExe + "'" )

   FOR EACH oProcessos in oListaProcess

      Retorno := .T.

      IF _nKill == 2

         oProcessos:Terminate() // mata o _cEXE

      ENDIF

   NEXT

RETURN( Retorno )

FUNCTION hb_default( xVar, xValue ) // Only xHarbour

   IF ValType( xVar ) != ValType( xValue )

      xVar := xValue

   ENDIF

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: ¿COMPROBAR SI OUTLOOK.EXE ESTÁ ABIERTO EN EL ADAPTADOR DE WINDOWS?
Posted: Thu Mar 27, 2025 04:09 PM

excelente !

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

FiveTech Support Forums

Continue the discussion