GetSystemMetrics de la user32.dll

rem ============================================================================
rem                    GetSystemMetrics de la user32.dll
rem ============================================================================
rem Cette fonction est utile pour connaître les dimensions des objets manipulés sous Windows.
rem Envoyez en paramêtre une constante (voir liste ci-dessous) et récupérez le résultat en pixels.
rem ============================================================================
' 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.
rem ============================================================================
dim ret%,t$
application_title "GetSystemMetrics de la user32.dll .... les valeurs sont en pixels"
hide 0
dll_on "user32.dll"
ret% = dll_call1("GetSystemMetrics",0) : t$ = t$ + "Largeur de l'écran : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",1) : t$ = t$ + "Hauteur de l'écran : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",2) : t$ = t$ + "Largeur des barres de défilement verticales : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",3) : t$ = t$ + "Hauteur des barres de défilement horizontales : " + str$(ret%)+chr$(13)+chr$(13)

ret% = dll_call1("GetSystemMetrics",5) : t$ = t$ + "Largeur d'une bordure de fenêtre : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",6) : t$ = t$ + "Hauteur d'une bordure de fenêtre : " + str$(ret%)+chr$(13)+chr$(13)

ret% = dll_call1("GetSystemMetrics",11) : t$ = t$ + "Largeur d'un icône : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",12) : t$ = t$ + "Hauteur d'un icône : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",13) : t$ = t$ + "Largeur du curseur : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",14) : t$ = t$ + "Hauteur du curseur : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",15) : t$ = t$ + "Hauteur d'une barre de menu : " + str$(ret%)+chr$(13)+chr$(13)

ret% = dll_call1("GetSystemMetrics",19)
  if ret% = 1
     t$ = t$ + "Une souris est présente" + chr$(13)
  else
     t$ = t$ + "Il n'y a pas de souris" + chr$(13)
  end_if
  
ret% = dll_call1("GetSystemMetrics",20) : t$ = t$ + "Hauteur des flèches dans les barres de défilement verticales : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",21) : t$ = t$ + "Largeur des flèches dans les barres de défilement horizontaless : " + str$(ret%)+chr$(13) +chr$(13)

ret% = dll_call1("GetSystemMetrics",23)
  if ret% = 1
     t$ = t$ + "Les boutons droit et gauche de la souris sont inversés" + chr$(13)+chr$(13)
  else
     t$ = t$ + "Les boutons droit et gauche de la souris ne sont pas inversés" + chr$(13)+chr$(13)
  end_if

ret% = dll_call1("GetSystemMetrics",36) : t$ = t$ + "Largeur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte : " + str$(ret%)+chr$(13)
ret% = dll_call1("GetSystemMetrics",37) : t$ = t$ + "Hauteur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte : " + str$(ret%)+chr$(13)+chr$(13)

ret% = dll_call1("GetSystemMetrics",43) : t$ = t$ + "Votre souris possède " + str$(ret%) + " boutons"

message t$
dll_off
terminate
rem ============================================================================