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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3682&post_id=15548