function HauteurBarreDeTache : integer ;
var
hBarreDeTache : HWND ;
R : TRect ;
begin
Result := -1 ;
// Recherche de la fenêtre dont le nom de classe est "Shell_TrayWnd"
// c'est à dire la barre des tâches.
hBarreDeTache := FindWindow( 'Shell_TrayWnd', '' ) ;
// Vérification que le handle est valide
if ( hBarreDeTache <> 0 ) then
begin
// Récupération du rectangle représentant la totalité de la barre des tâches
GetWindowRect( hBarreDeTache, R ) ;
// Bottom - Top car le 0 se trouve en haut de l'écran
Result := R.Bottom - R.Top;
end ;
end ;