IsApplicationActive                              (XAPI2000)

Deklaration VB 6.0
Function IsApplicationActive (ByVal ProcessID As Long) As Boolean

Deklaration VB.NET
Function IsApplicationActive (ByVal ProcessID As Integer) As Boolean

Beskrivning
Testar om en applikation med angiven process-ID är aktiv (körs i systemet). Parametern ProcessID specifierar process-ID för den applikation som ska testas. Process-ID för en applikation kan erhållas med hjälp av funktionen RunApplicationEx.   

Returvärden
Funktionen returnerar True om applikationen är aktiv eller False om den inte är aktiv.
.

Se även
RunApplicationEx, TerminateApplication

 
 
Exempel (VB 6.0)

Nedanstående exempel visar hur en timer och funktionen IsApplicationActive kan användas för att kolla om en applikation med känd
process-ID är aktiv. Så länge programmet körs kommer funktionen IsApplicationActive att returnera True, men så fort användaren
stänger programmet kommer funktionen att börja returnera False.

Const St1 = "Ej aktivt"
Const St2 = "Aktivt"
Dim ProcessID As Long ' Sätt datatypen till 'Integer' i VB.NET

Private Sub TimerX_Timer()
    If ProcessID <> 0 Then
        If IsApplicationActive(ProcessID) Then
            AppStatus.Caption = St2 ' Programmet är aktivt
        Else
            AppStatus.Caption = St1 ' Programmet är inte aktivt
            ProcessID = 0
        End If
    Else
        AppStatus.Caption = St1 ' Programmet är inte aktivt
    End If
End Sub
 
    
 
  
SamLogic