Re: Hauteur de la barre de tâches

Posté par Anak1 le 6/12/2006 16:03:20

PROCEDURE HauteurBarreTachesWindows()
QUAND EXCEPTION
RENVOYER 0
FIN
WIN_RECT est une structure
rLeft est un entier
rTop est un entier
rRight est un entier
rBottom est un entier
FIN
Rect est un WIN_RECT
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

Cordialement,

Anak1