ActiveTasks: Array con las tareas activas

Posted on :28 abril, 2016
Funciones
No comments

La función ActiveTasks() nos permite generar un array con el id y el nombre de todas las tareas que en ese momento tenemos corriendo en nuestro windows

Function ActiveTasks()
   Local hWnd  :=  GetWindow( GetActiveWindow(), 0 )
   Local nTask := 0, cTask, aTasks := {}
   Local nHandle

    WHILE hWnd != 0
      cTask := GetWindowText( hWnd )
      IF ! Empty(cTask)
        IF aScan( aTasks, {|aVal| aVal[2] == cTask } ) == 0
            aAdd( aTasks, {hWnd,cTask})
        ENDIF
      ENDIF
      hWnd := GetWindow( hWnd, 2 )
    END
Return aTasks

Function ActiveTasks()

Local hWnd := GetWindow( GetActiveWindow(), 0 )

Local nTask := 0, cTask, aTasks := {}

Local nHandle

WHILE hWnd != 0

cTask := GetWindowText( hWnd )

IF ! Empty(cTask)

IF aScan( aTasks, {|aVal| aVal[2] == cTask } ) == 0

aAdd( aTasks, {hWnd,cTask})

ENDIF

hWnd := GetWindow( hWnd, 2 )

END

Return aTasks

Referencias

GetWindowText : https://msdn.microsoft.com/es-es/library/windows/desktop/ms633520(v=vs.85).aspx
GetActiveWindow : https://msdn.microsoft.com/es-es/library/windows/desktop/ms646292(v=vs.85).aspx
GetWindow: https://msdn.microsoft.com/es-es/library/windows/desktop/ms633515(v=vs.85).aspx

Con esta función podemos saber, por ejemplo, si un programa determinado programa ( realmente un programa con ese título ) se está ejecutando en el ordenador

  IF aScan( ActiveTasks(), {|aVal| aVal[2] == "Screen Recorder"})  > 0
     MsgInfo("Screen Recorder ya se está ejecutando")
   ENDIF

IF aScan( ActiveTasks(), {|aVal| aVal[2] == "Screen Recorder"}) > 0

MsgInfo("Screen Recorder ya se está ejecutando")

ENDIF

Tags: sistema

ActiveTasks: Array con las tareas activas

Leave a Response

Gracias por la calificación