Discussion :

[windmastr26]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[jurassic pork]

bonjour,

voici du code pour lister les fenêtres ouvertes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[windmastr26]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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