Quelques fonctions de la user32.dll

par **Papydall-Admin** Sam 25 Nov - 1:43

Code:: 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 =========================================================================

Lun	Mar	Mer	Jeu	Ven	Sam	Dim
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30