ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Commetn obtenir la hauteur de la barre de taches (taskbar)   


L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle

Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Commetn obtenir la hauteur de la barre de taches (taskbar)
# 0000000255
ajouté le 05/11/2005 20:48:28 et modifié le 29/03/2006
consulté 7222 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
Description

Code source :
TaskBarHeight()
Function TaskBarHeight
Declare Integer GetWindowRect In user32;
  INTEGER HWnd, String lpRect
Declare Integer FindWindow In user32;
  STRING lpClassName,;
  STRING lpWindowName

Local cBuffer
cBuffer = Replicate(Chr(0), 16)
hWindow= FindWindow('Shell_TrayWnd', '')
cRect = GetWinRect(hWindow)
?  "La hauteur de la barre de tache est "+trans(buf2dword(Substr(cRect, 13,4))-buf2dword(Substr(cRect, 5,4)))
Function GetWinRect(hWindow)
Local cBuffer
cBuffer = Replicate(Chr(0), 16)
= GetWindowRect(hWindow, @cBuffer)
Return cBuffer
Function buf2dword(lcBuffer)
Return Asc(Substr(lcBuffer, 1,1)) + ;
  BitLShift(Asc(Substr(lcBuffer, 2,1)),  8) +;
  BitLShift(Asc(Substr(lcBuffer, 3,1)), 16) +;
  BitLShift(Asc(Substr(lcBuffer, 4,1)), 24)
Commentaires
Aucun commentaire enregistré ...
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3