PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Hauteur barre des taches
Hauteur barre des taches
Started by MikeFilth, Apr., 27 2006 7:40 PM - 3 replies
#1
Posted on April, 27 2006 - 7:40 PM
Salut.

Quelqu'un aurait une idée de code pour récuperer la hauteur de la barre des taches SVP.

Merci d'avance.

MikeFilth
#2
Posted on April, 27 2006 - 9:10 PM
PROCEDURE WindowsTailleBarreTaches()
RECT est une structure
Left est un entier //Type C : LONG
top est un entier //Type C : LONG
Right est un entier //Type C : LONG
bottom est un entier //Type C : LONG
FIN

APPBARDATA est une structure
cbSize est un entier //Type C : DWORD
hWnd est un entier //Type C : HWND
uCallbackMessage est un entier sans signe //Type C : UINT
uEdge est un entier sans signe //Type C : UINT
RC est un RECT //RECT est une autre structure
lParam est un entier //Type C : LPARAM
FIN

RetourFonction est un entier sans signe // Type C :UINT
pData est un APPBARDATA

RetourFonction=API("SHELL32","SHAppBarMessage",5,&pData)

RENVOYER pData:rc:bottom-pData:rc:top


MikeFilth avait prétendu :

Salut.

Quelqu'un aurait une idée de code pour récuperer la hauteur de la barre des
taches SVP.

Merci d'avance.

MikeFilth


--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
#3
Posted on April, 27 2006 - 9:12 PM
PROCEDURE Hauteur_Barre_de_Tache()
QUAND EXCEPTION
RENVOYER 0
FIN

Rect est composé de
//WIN_RECT est une structure
rLeft est un entier
rTop est un entier
rRight est un entier
rBottom est un entier
FIN


Hwnd_Shell est un entier = AppelDLL32("User32", "FindWindowA", "Shell_TrayWnd", Null)
SI Hwnd_Shell<>0 ALORS
IF AppelDLL32("user32","GetWindowRect",Hwnd_Shell,&Rect)<>0 THEN
SI (SysYRes()-Rect.rTop)>5 ALORS
RENVOYER Rect.rBottom-Rect.rTop+1
SINON
RENVOYER 0
FIN
FIN
FIN
RENVOYER 0
#4
Posted on April, 27 2006 - 11:17 PM
Merci à vous deux pour vos réponse, ca marche nikel.

Bon dev et @ +
→ Go back to WINDEV 2024