Check om program Kører

nb. Programmet ændrer hele tiden caption

control alt delete  åbner et vindoe hvori du kan se de kørende programmer.(og lukke dem)

prøv lige at forklare dig lidt nærmer ??

Hvis du i windows trykker control alt delete, for du en liste og kørende programmer!

Det er et program jeg vil lave i VB

Du kunne jo lade programmet, ved start, skrive en oplysning i en fil, som så bliver slettet når programmet afsluttes.
Det andet program checker så indholdet i denne fil og kan derved se om det andet program er aktiv.
Ulempen er at hvis Win går ned imens er filen der stadig.
-SCB

Hej krismort.

Prøv at kigge på:  http://www.eksperten.dk/spm/11329
Jeg lægger også lige kildeteksten til min lille prototype på http://www.jkfsoft.dk/tasklist.zip

Det er bare lidt kode til videre udbygning.  m.v.h.  Jørn

Hvis det er f.eks er nogle af office-programmerne eller hvis du har programmets Class-name, kan nedenstående kode måske hjælpe:

\'******************** Code Start ************************
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_NORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MAX = 10

Private Declare Function apiFindWindow Lib \"user32\" Alias _
    \"FindWindowA\" (ByVal strClass As String, _
    ByVal lpWindow As String) As Long

Private Declare Function apiSendMessage Lib \"user32\" Alias _
    \"SendMessageA\" (ByVal hWnd As Long, ByVal Msg As Long, ByVal _
    wParam As Long, lParam As Long) As Long
   
Private Declare Function apiSetForegroundWindow Lib \"user32\" Alias _
    \"SetForegroundWindow\" (ByVal hWnd As Long) As Long
   
Private Declare Function apiShowWindow Lib \"user32\" Alias _
    \"ShowWindow\" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
   
Private Declare Function apiIsIconic Lib \"user32\" Alias _
    \"IsIconic\" (ByVal hWnd As Long) As Long
   
Function IsAppRunning(ByVal strAppName As String, _
        Optional fActivate As Boolean) As Boolean
    Dim lngH As Long, strClassName As String
    Dim lngX As Long, lngTmp As Long
    Const WM_USER = 1024
    On Local Error GoTo IsAppRunning_Err
    IsAppRunning = False
    Select Case LCase$(strAppName)
        Case \"excel\":      strClassName = \"XLMain\"
        Case \"word\":        strClassName = \"OpusApp\"
        Case \"access\":      strClassName = \"OMain\"
        Case \"powerpoint95\": strClassName = \"PP7FrameClass\"
        Case \"powerpoint97\": strClassName = \"PP97FrameClass\"
        Case \"notepad\":    strClassName = \"NOTEPAD\"
        Case \"paintbrush\":  strClassName = \"pbParent\"
        Case \"wordpad\":    strClassName = \"WordPadClass\"
        Case Else:          strClassName = \"\"
    End Select
   
    If strClassName = \"\" Then
        lngH = apiFindWindow(vbNullString, strAppName)
    Else
        lngH = apiFindWindow(strClassName, vbNullString)
    End If
    If lngH <> 0 Then
        apiSendMessage lngH, WM_USER + 18, 0, 0
        lngX = apiIsIconic(lngH)
        If lngX <> 0 Then
            lngTmp = apiShowWindow(lngH, SW_SHOWNORMAL)
        End If
        If fActivate Then
            lngTmp = apiSetForegroundWindow(lngH)
        End If
        IsAppRunning = True
    End If
IsAppRunning_Exit:
    Exit Function
IsAppRunning_Err:
    IsAppRunning = False
    Resume IsAppRunning_Exit
End Function

\'******************** Code End ************************


Syntaxen er som følger:
If IsAppRunning(\"Excel\") = true then ...

/Thomas