API Windows - EnumWindows

Version imprimable

Salut à tous,

Je suis en train de concevoir une application qui se lance au démarrage d'une session Windows. L'application en question gère des stratégies chargées de masquer la barre des tâches et interdire l'accès au bureau Windows. En contrepartie, elle donne la possibilité d'ouvrir certains programmes en cliquant sur les boutons correspondants.

Seul hic, c'est que si l'utilisateur ouvre plusieurs application, il ne va pas pouvoir basculer de l'une à l'autre vu que le barre des tâches est masquée.

Je me suis alors tourné vers une fenêtre qui affiche la liste des applications en cours. J'ai regardé du coté des API avec notamment "EnumWindows".
Code:

1 2 TableSupprimeTout(TABLE_Applications) API("User32","EnumWindows",&ProcEnumFenêtre,0)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 PROCEDURE ProcEnumFenêtre(nHwnd est un entier système, nIDFichier est un entier système) nTailleMaxNomClasse est un entier = 1024 sNomClasseDeFenetre est une chaîne ASCIIZ sur 1024 sTitreFenetre est une chaîne API("user32","GetClassNameA",nHwnd,&sNomClasseDeFenetre,nTailleMaxNomClasse) sTitreFenetre = SysFenTitre(nHwnd) SI sTitreFenetre~="" ALORS RENVOYER Vrai SINON TableAjoute(TABLE_Applications,TAB+sTitreFenetre+TAB+sNomClasseDeFenetre) RENVOYER Vrai FIN
Le problème c'est que cette fonction me renvoi un nombre incroyable de programmes, très loin des quelques fenêtres que j'ai à l'écran...

Quelqu'un a déjà utilisé cette fonction de l'API User32 ? Une idée pour restreindre l'affichage aux seuls fenêtres ouvertes ?

Merci d'avance...

bonjour,

voici du code pour lister les fenêtres ouvertes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Lg, Ok, hWnd sont des entiers
 
hWnd = AppelDLL32("User32", "GetWindow", Handle(), 2)
 
lpString est une chaîne fixe sur 255
 
TANTQUE hWnd <> 0
	Lg = AppelDLL32("User32", "GetWindowTextLengthA", hWnd)
	Ok = AppelDLL32("User32", "GetWindowTextA", hWnd, &lpString, Lg + 1)
	SI Ok ALORS
	   SI AppelDLL32("user32","IsWindowVisible",hWnd) ALORS
	          Trace(lpString)
	   FIN
	FIN //de Ok
	// On passe à la fenêtre suivante...
	hWnd = AppelDLL32("User32", "GetWindow", hWnd, 2)
FIN //de TANTQUE

Ami calmant, J.P ;)

Super ! Merci jurassic pork ! :)

Il me laisse tout de même 2 applications en plus : le gestionnaire de programme et un composant AMD, mais bon vu que ce n'est pas des fenêtre "affichables", ça n'a aucune importance.

Au final voilà le petit morceau de code, si ça peut aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PROCEDURE ProcEnumFenêtre()
//Insère la liste des fenêtres dans la table
Lg, Ok, nHWnd sont des entiers
nHWnd = AppelDLL32("User32", "GetWindow", Handle(), 2)
lpString est une chaîne fixe sur 255
 
TANTQUE  nHWnd <> 0
	Lg = AppelDLL32("User32", "GetWindowTextLengthA",  nHWnd)
	Ok = AppelDLL32("User32", "GetWindowTextA",  nHWnd, &lpString, Lg + 1)
	SI Ok ALORS
		SI AppelDLL32("user32","IsWindowVisible", nHWnd) ALORS
			TableAjoute(TABLE_Applications,nHWnd+TAB+lpString)
		FIN
	FIN 
	 nHWnd = AppelDLL32("User32", "GetWindow",  nHWnd, 2)
FIN

Code:

1
2
3
4
5
6
//Met la fenêtre sélectionné au premier plan
nHWnd est un entier=COL_PID
API("User32", "ShowWindow", nHWnd, 6)
SI API("User32", "ShowWindow", nHWnd, 1)=0 ALORS
	Erreur("Impossible de ramener cette fenêtre au premier plan !")
FIN