Récupérer la hauteur de la barre des tâches
Contenu du snippet
(*Autre méthode (plus directe)
Elle donne :
La position de la barre des tâches
Sa taille
Et si elle est en AutoHide où non
Il existe d'autres possibilités voir dans l'aide de Delphi sous SHAppBarMessage
*)
Uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
Var AppData: TAppBarData;
PosString: string;
begin
AppData.cbSize := sizeof(AppData);
AppData.hWnd := FindWindow('Shell_TrayWnd', nil);
SHAppBarMessage(ABM_GETTASKBARPOS, AppData);
With AppData.rc do
PosString := Format(' [%d, %d];[%d, %d] ', [Left, Top, Right, Bottom]);
If SHAppBarMessage(ABM_GETAUTOHIDEBAR, AppData) = AppData.hWnd Then
PosString := PosString + 'AutoHide' Else
PosString := PosString + 'NonAutoHide';
case AppData.uEdge of
ABE_LEFT: ShowMessage('Left Position' + PosString);
ABE_TOP: ShowMessage('Top Position' + PosString);
ABE_RIGHT: ShowMessage('Right Position' + PosString);
ABE_BOTTOM: ShowMessage('Bottom Position' + PosString);
end;
(* Simple ... non ? *)
end;
Compatibilité : Delphi 5
Disponible dans d'autres langages :
A voir également
- Récupérer la hauteur de la barre des tâches
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Calculer la hauteur d'un arbre ✓ - Forum C / C++ / C++.NET
- Barre de recherche php - Forum PHP
- Vba barre de progression - Forum Visual Basic
- Recherche dans base mysql ✓ - Forum PHP
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.