// Renvoie la hauteur du titre (Titre table + Titre colonne) d'une table
//  sNomTable [in] : Nom de la table à interroger
//
PROCEDURE iHauteurTitreTable(sNomTable)

_RECT est une structure
	iPosLeft	est un entier 
	iPostop		est un entier 
	iPosright	est un entier 
	iPosbottom	est un entier 
FIN

_WINDOWINFO est une structure
	cbSize			est un entier
	rcWindow		est un _RECT
	rcClient		est un _RECT
	dwStyle			est un entier
	dwExStyle		est un entier
	dwWindowStatus	est un entier
	cxWindowBorders	est un entier sans signe sur 2
	cyWindowBorders	est un entier sans signe sur 2
	atomWindowType	est un entier sur 2
	wCreatorVersion	est un entier sur 2
FIN

stWindowInfo	est un _WINDOWINFO

hwnd			est un entier =Handle(sNomTable)
bRes			est un booléen
dy				est un entier 

bRes=API("user32.dll","GetWindowInfo",hwnd,&stWindowInfo)
dy=stWindowInfo:rcClient:iPostop-stWindowInfo:rcWindow:iPostop

RENVOYER dy