Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 428 fois - Téléchargée 7 fois
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 ;
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.