|
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
|
|
