fermer une aplication

Question

Salut &#224; tous,

Ca fait d&#233;ja bien une heure que je tourne en rond, pour trouver
commment fermer Acrobat reader (Oui je sais le petite croix en haut a
droite...)

voila ce que j'ai essayer



Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam As Long) As Long

Private Const WM_CLOSE = &H10



Private Sub Command1_Click()





    Dim Retour   As Long

    

    'la fonction ShellExecute va ouvrir l'application adapt&#233; &#224; l'extention

    Retour = ShellExecute(hwnd, "open", "c:\TOTO.PDF", "", vbNullString, 0)



End Sub



Private Sub Command2_Click()



Dim lgHwnd As Long, lgRep As Long



lgHwnd = FindWindow(vbNullString, "AcroRd32.exe")



lgRep = PostMessage(lgHwnd, WM_CLOSE, vbNull, vbNull)



End Sub





j'explique le code, le premier boutont sert &#224; ouvrir un fichier PDF, le
deuxi&#232;me est sens&#233; r&#233;cup&#233;rer le handle d'adobe Acrobat Reader, mais
rien! la fonction FindWindow me retourne 0 et aucun handle. 

Alors l&#224; je sais plus quoi faire!



Je vous remerci pour vos futur r&#233;ponses.



Waldo

MWT

cs_DARKSIDIOUS · Answer

La fonction FindWindow se base sur le titre de la fen&#234;tre et non le nom de l'&#233;x&#233;cutable pour r&#233;cup&#232;rer le handle, donc :



lgHwnd = FindWindow(vbNullString, "Adobe Reader")



Mais je ne suis pas s&#251;r que ca marche : il faut normalement lui pr&#233;ciser le nom de la classe de la fen&#234;tre !



Si ca ne marche pas, va voir ma source nomm&#233;e Anti-Pub, c'est un
gestionnaire de fen&#234;tre qui permet, entre-autre, de lister les fen&#234;tres
visibles...


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

zippro4012 · Answer

Dans FindWindow, il n'y a besoin que d'un param&#232;tre pour que &#231;a marche

Mais il faut simplement l'utiliser comme &#231;a pour que &#231;a marche :



Dim AdName as string

AdName = "Adobe Acrobat"

RetVal = FindWindow("","AdName)



Seulement voila, le titre n'est pas tr&#232;s fiable. Tu devrait utiliser le
nom de classe. Pour info, la classe d'Acrobat Reader est :
"AdobeAcrobat". Proc&#232;de comme ceci :



Function GetAdobeHandle( ) as long

    Dim ClassName as string

    ClassName = "AdobeAcrobat"

    GetAdobeHandle = FindWindow(ClassName,"")

End Function

Fermer une aplication

2 réponses

Discussions similaires