FindWindow ?

[Ruku]

I would like to search threw all running programs (hidden or not) for my application named "Bob"...

I think the function I should use is FindWindow, however, I can't get any exemples on how to use it ... Could anyone please post a sample code for this?

The function:

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

or

Declare Function FindWindowWithNull Lib "user32" -
Alias "FindWindowA" (ByVal lpClassName As Long, _
ByVal lpWindowName As String) As Long

So... waiting for an answer

[kleinma]

is you app called bob.exe or is the caption of the window "bob" because findwindow searches by its 2 params.. 1 is the class, and 2 (which is what you will probably use) is the windows caption name... now you can also search each process for the actual exe name if that is what you are looking for.. but that envolves some more api work to enum the processes

[Ruku]

Originally posted by kleinma
is you app called bob.exe or is the caption of the window "bob" because findwindow searches by its 2 params.. 1 is the class, and 2 (which is what you will probably use) is the windows caption name... now you can also search each process for the actual exe name if that is what you are looking for.. but that envolves some more api work to enum the processes

App Window: "bob",
App Exe Name "BobName.exe"
App Exe Path "C:\BobPath"

...

As you might have noticed, I just want a sample code

...

The only thing I want to know: Is it running?

[kleinma]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
Private Sub Command1_Click()
    if FindWindow(vbNullString,"bob") = 0 then
        msgbox "BOB NOT RUNNING"
    else
        msgbox "BOB IS RUNNING"
    end if
End Sub

[Ruku]

Originally posted by kleinma

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
Private Sub Command1_Click()
    if FindWindow(vbNullString,"bob") = 0 then
        msgbox "BOB NOT RUNNING"
    else
        msgbox "BOB IS RUNNING"
    end if
End Sub

Thanks!