|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Utilizando o " FindWindow" para verificar se o seu SW está aberto
|
 |
|
|
|
Postada em 2/4/2007 por ¨Hennyere¨
jhennyere@yahoo.com.br
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim m_hWnd As Long
m_hWnd = FindWindow(vbNullString, "Sem título - Bloco de notas")
If m_hWnd > 0 Then
MsgBox "O Bloco de notas está aberto"
Else
MsgBox "O Bloco de notas não está aberto"
Exit Sub
End If
End Sub
'Josefh Hennyere
|
|
|
|
|
