Quelques fonctions de la user32.dll

rem ============================================================================
rem    Voici quelques fonctions de la user32.dll : ça peut servir.
rem  Sinon, connaitre simplement leur existence ne fait de mal à personne.
rem        Sinon, vous pouvez toujours les jetter à la poubelle !
rem ============================================================================
' REMARQUE : Dans ces fonctions, le mot fenêtre est pris au sens de WINDOW, c-à-d
' Tout objet manipulé par WINDOW comme FORM, BUTTON, etc.
dim ret%,hWnd,hWndParent,Flag, ascii

form 10 : set_focus 10 : left 10,300
button 20 : parent 20,10

hWnd = handle(0)
print "handle(0) = " + str$(hWnd)

dll_on "user32.dll"

rem ============================================================================
rem GetForgroundWindow
' Cette fonction retourne un pointeur (Handle) vers la fenêtre qui se trouve
' au premier plan.
' Elle retourne 0 si aucune fenêtre n'est au premier plan (si un changement est en cours).
ret% = dll_call0("GetForegroundWindow")
print "Handle Forground = " + str$(ret%)
rem ============================================================================
rem GetFocus
' Cette fonction retourne le handle de la fenêtre qui a le Focus
ret% = dll_call0("GetFocus")
print "Handle Focus = " + str$(ret%)
print "Handle form 10 = " + str$(handle(10))
ret% = dll_call0("GetFocus")
print "Handle Focus = " + str$(ret%)
rem ============================================================================
rem GetDesktopWindow
' Cette fonction  retourne le Handle de la fenêtre correspondant au bureau
' (Celle sur laquelle sont affichés le fond d'écran, et les icônes).
ret% = dll_call0("GetDesktopWindow")
print "Handle du Bureau = " + str$(ret%)
rem ============================================================================
rem GetWindow
' retoure le handle de la fenêtre suivante (flag = 2)ou de la fenêtre précédente (flag = 3)
flag = 2 : ' fenêtre suivante
ret% = dll_call2("GetWindow",hWnd,flag)
print "handle de la fenêtre suivante = " + str$(ret%)
' retoure le handle de la fenêtre précédente (flag = 3)
flag = 3 : ' fenêtre précédente
ret% = dll_call2("GetWindow",hWnd,flag)
print "handle de la fenêtre précédente = " + str$(ret%)
rem ============================================================================
rem GetParent
' Cette fonction retourne  un pointeur (handle) vers la fenêtre parent dont
' le handle est passé en paramêtre.
' Si la fenêtre ne possède pas de parent, elle retourne 0.
ret% = dll_call1("GetParent",handle(20))
print "Handle Parent de Button 20 = " + str$(ret%)
rem ============================================================================
rem IsChild
' Cette fonction permet de savoir si une fenêtre est fille ou appartient à la
' descendance d'une autre.
' hWndParent est le handle de la fenêtre d'origine.
' hwnd est le handle de la fenêtre à tester.
' Si la seconde fenêtre fait partie de la descendance de la première la fonction
' retourne "1 = Vrai", sinon "0 = Faux".
hWnd = handle(20)       : ' handle du button 20
hWndparent = handle(10) : ' handle du form 10
ret% = dll_call2("IsChild",hWndParent,hWnd)
if ret% > 0
  print str$(hWndParent) + " est fils/fille de " + str$(hWnd)
else
  print str$(hWndParent) + " n' est pas fils/fille de " + str$(hWnd)
end_if
rem ============================================================================
rem GetSystemMetrics
' Cette fonction est utile pour connaître les dimensions des objets manipulés sous Windows.
' Envoyez en paramêtre une constante (voir liste ci-dessous) et récupérez le résultat en pixels.
' 0  : Largeur de l'écran
' 1  : Hauteur de l'écran
' 2  : Largeur des barres de défilement verticales.
' 3  : Hauteur des barres de défilement horizontales.
' 5  : Largeur d'une bordure de fenêtre.
' 6  : Hauteur d'une bordure de fenêtre.
' 11 : Largeur d'un icône.
' 12 : Hauteur d'un icône.
' 13 : Largeur du curseur.
' 14 : Hauteur du curseur.
' 15 : Hauteur d'une barre de menu.
' 19 : Indique si une souris est présente (renvoie '1 = Vrai' ou '0 = Faux').
' 20 : Hauteur des flèches dans les barres de défilement verticales.
' 21 : Largeur des flèches dans les barres de défilement horizontales.
' 23 : Indique si les boutons droit et gauche de la souris sont inversés (renvoie '1 = Vrai' ou '0 = Faux').
' 36 : Largeur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte.
' 37 : Hauteur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte.
' 43 : Indique le nombre de boutons présents sur la souris.
ret% = dll_call1("GetSystemMetrics",43)
print "Votre souris possède " + str$(ret%) + " boutons"
rem ============================================================================
rem IsCharAlphaA
' Cette fonction indique si un caractère est de type alphabétique (a-z,A-Z).
' Paramètre : code ASCII du caractère à tester.
' La fonction retourne 1 si le caractère est alphabétique, sinon 0.
ascii = asc("a")
ret% = dll_call1("IsCharAlphaA",ascii)
if ret% > 0
  print chr$(ascii) + " est alphabétique"
else
  print chr$(ascii) + " n' est pas alphabétique"
end_if
rem ============================================================================
rem IsCharAlphaNumericA
' Cette fonction indique si un caractère est de type alphanumérique.
' Paramètre : code ASCII du caractère à tester.
' La fonction retourne 1 si le caractère est alphanumérique, sinon 0.
ascii = asc("3")
ret% = dll_call1("IsCharAlphaNumericA",ascii)
if ret% > 0
  print chr$(ascii) + " est alphanumérique"
else
  print chr$(ascii) + " n' est pas alphanumérique"
end_if
rem ============================================================================
rem IsIconic
' Cette fonction permet de savoir si la fenêtre dont le handle est transmis en
' paramètre est réduite en icone ou non.
' La fonction retourne 1 si la fenêtre est réduite en icone, sinon 0.
ret% = dll_call1("IsIconic",handle(0))
if ret% > 0
  print "La fenêtre est réduite en inone"
else
  print "La fenêtre n'est pas réduite en icone"
end_if
rem ============================================================================
rem IsWindowVisible
' Cette fonction permet de savoir si une fenêtre est visible ou non,
' même cachée par d'autres.
' Elle retourne '1 = Vrai' si la fenêtre est effectivement visible, sinon '0 = Faux'.
' ------------------------------------------------------------------------------
hide 20 : ' on cache le bouton
ret% = dll_call1("IsWindowVisible",handle(20))
if ret% > 0
  print "La fenêtre est visible"
else
  print "La fenêtre n'est pas visible"
end_if
' ------------------------------------------------------------------------------
show 20 : ' on montre le bouton
ret% = dll_call1("IsWindowVisible",handle(20))
if ret% > 0
  print "La fenêtre est visible"
else
  print "La fenêtre n'est pas visible"
end_if
rem ============================================================================

dll_off
rem ============================================================================