Petit probleme avec les fenetre windows

Question

Salut
Je n'arrive pas &#224; trouver comment faire pour fermer la fenetre d'un dossier. Si vous pouviez m'aider se serait cool. Merci
Et autre chose, comment faire pour que la form1 lorsqu'elle est active empeche de cliquer sur le bureau ou sur tout autre objet qui ne lui appartient pas.
Voila merci d'avance.
Le chieur

borntoclimb · Answer

Je ne suis pas certain de ce que tu veux dire par fermer la fenetre d'un dossier. Si c'est une fenetre qui ne fais pas partie de ton programme tu peux la fermer en passant par les APIs. Tu trouve le "handle" de la fenetre par son nom et apres tu passes un message "close" ou tu la "kill" directement.

Nom de l'API: FindWindow
Args: vbNullString, "Nom de la fenetre"

Nom de l'API: SendMessage
WM_CLOSE=&H10

Fait une recherche sur le site pour trouver un example concret.

Pour empecher l'access &#225; quoi que ce soit, tu peux donner &#225; ton programme les propriet&#233;s d'un "Screen Saver". J'ai deposer un source qui explique comment faire et je crois qu'il y en a plusieurs autres sur ce theme.

Borntoclimb

Borntoclimb

---No pasa nada...

lechieur · Answer

Ouais je me suis un peu mal exprimer, en fait c comme si tu voulais fermer la fenetre du poste de travail ou meme l'explorateur.
De plus je sui pas tres chaud encore avec les Api comme je d&#233;bute et je n'y comprend s pas grand choses quand on m'en parle. Voial
Merci quand meme.
Le chieur

Vedlen · Answer

T'as la m&#233;thode du "gros connard" comme j'aime bien l'appeller , c'est &#224; dire y aller &#224; la barbare en killant explorer.exe 



http://vbfrance.com/code.aspx?id=7838



Comme &#231;a il ne reste plus que ton prog, et le fond d'&#233;cran.

Pour red&#233;marrer explorer, suffit de faire un lien vers C:\WINDOWS\Explorer.exe

Il est aussi possible de le red&#233;marrer par Ctrl+Alt+Suppr --> Fichier --> Nouvelle t&#226;che (ex&#233;cuter..) --> 'Explorer'

lechieur · Answer

Salut
C'est aussi une solution mais un peu barbare comme tu dis et meme dangereuse. Je vais voir si je l'essaye.
Merci beaucoup
Le chieur

lechieur · Answer

J'ai peut etre trouver mais je vais avoir besoins de votre aide. Si j'arrivais a faire passer le poste de travail (étant ouvert bien sur), en fenetre active et ensuite a envoyer le code de la touche ALT et celui de la touche F4, peut etre que ca fermerais le poste de travail ou toute fenetre dans le meme style. Par contre je ne sias pas utiliser la fonction sendKeys. Si vous pouvier m'écrire un code ca serait tro sympas. Voila, maintenant je sais si sa peut parcher mais c'était juste une idée.
Merci d'avance.
Le chieur

Gobillot · Answer

Const WM_CLOSE = &H10



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, lParam
As Any) As Long



Private Sub Command1_Click()

    Dim Hwnd As Long

    

    Hwnd = FindWindow(vbNullString, "Poste de travail")

    

    If Hwnd > 0 Then

       PostMessage Hwnd, WM_CLOSE, 0&, 0&

       End If

    

End Sub


Daniel

lechieur · Answer

Salut
Merci pour ton code il est génial. Tu te démerde tro bien. Je te remerci vraiment car j'en avait absoluement besoins.
Bon je vais finir mon programme.
Merci
@+
le chieur

Petit probleme avec les fenetre windows

7 réponses

Discussions similaires