Lister fenetre d'un prog
cs_jmtoulon
Messages postés
85
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
3 août 2010
-
6 oct. 2005 à 06:42
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 6 oct. 2005 à 14:49
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 6 oct. 2005 à 14:49
A voir également:
- Lister fenetre d'un prog
- Bloque fenetre ✓ - Forum Java
- $Prog - Forum Delphi / Pascal
- Agrandissement fenetre - Forum Visual Basic 6
- Taille fenetre tkinter - Forum Python
- Fenêtre plane - Forum Visual Basic
1 réponse
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
6 oct. 2005 à 14:49
6 oct. 2005 à 14:49
salut,
2° et 3°
[VB6]
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
'
Const MyResearch As String = "EADO SOFT"
'
'
Private Sub Form_Load()
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, MyResearch)
If WinWnd = 0 Then
MsgBox "Fenêtre non-trouvée", 32
Else
MsgBox "Le Handle de " & MyResearch & " est " & WinWnd, 32
End If
Unload Me
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT
2° et 3°
[VB6]
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
'
Const MyResearch As String = "EADO SOFT"
'
'
Private Sub Form_Load()
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, MyResearch)
If WinWnd = 0 Then
MsgBox "Fenêtre non-trouvée", 32
Else
MsgBox "Le Handle de " & MyResearch & " est " & WinWnd, 32
End If
Unload Me
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT
