Connaitre la position de la barre des tâches

var
hTaskbar : HWND;
T : TRect;


begin
hTaskBar:=FindWindow('Shell_TrayWnd',nil); // Find the handle of the taskbar
GetWindowRect(hTaskBar,T);
if (T.Top > Screen.Height DIV 2) and (T.Right >= Screen.Width)
then ShowMessage('Bottom') else
if (T.Top < Screen.Height DIV 2) and (T.Bottom <= Screen.Width DIV 2)
then ShowMessage('Top') else
if (T.left < Screen.Width DIV 2) and (T.Top <= 0) then ShowMessage('Left') else
// (the last if is not necessary)
if T.Left >= Screen.Width DIV 2 then ShowMessage('Right');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour12/04/2006
VisualisationVu 1687 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur