Récupérer la hauteur de la barre des tâches
Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 987 fois - Téléchargée 7 fois
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
- Barre de recherche php - Forum PHP
- Etiqueteuse code barre - Forum Delphi / Pascal
- Barre de recherche - Forum PHP
- Vba barre de progression - Forum Visual Basic
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.