25/04/2024
Windev et les Api Windows
Nb de visiteurs en ligne : 1
>> Introduction <<
>> Codes et Forum <<
>> Download <<
Rubrique
: 1 - Windows Général
Sujet
: Bureau
Auteur
Message
°¨¨ JL ¨¨°
Posté le : 23/06/2000 12:00:00
// Changer l'image de fond du bureau
image est une chaine asciiz de 128="c:windowsimagesvoilier.bmp"
SPI_SETDESKWALLPAPER est un entier = 20
AppelDLL32("user32","SystemParametersInfoA" , SPI_SETDESKWALLPAPER, 0, &image, 0)
// Espace du bureau disponible pour les applications
SPI_GETWORKAREA est un entier = 48
rect est compose de
l est un entier long
t est un entier long
r est un entier long
b est un entier long
fin
appeldll32("user32","SystemParametersInfoA",SPI_GETWORKAREA,0,&rect,0)
info(rect.l+" "+rect.t+" "+rect.r+" "+rect.b)
// Iconiser toutes les fenêtres
SendMessage( appeldll32("user32","FindWindowA", "Shell_TrayWnd" , NULL) , 0x111 , 419 , 0)
// Masquer les icônes du bureau et le rendre inactif
progm est un entier long=AppelDLL32("User32", "FindWindowA", "Progman", "Program Manager")
AppelDLL32("User32", "ShowWindow", progm, 0)
// Récupérer les dimensions (et positions) de la barre de tâches
rect3 est compose de
l est un entier long
t est un entier long
r est un entier long
b est un entier long
fin
hwndshell est un entier long = appeldll32("user32","FindWindowA","Shell_TrayWnd", NULL)
si hwndshell alors
appeldll32("user32","GetWindowRect",hwndshell,&rect3)
fin
message(rect3.l+" "+rect3.r+" "+rect3.t+" "+rect3.b)
// Réorganiser toutes les fenêtres en cascade
SendMessage( appeldll32("user32","FindWindowA", "Shell_TrayWnd" , NULL) , 0x111 , 403 , 0)
// Réorganiser toutes les fenêtres en mosaique horizontale
SendMessage( appeldll32("user32","FindWindowA", "Shell_TrayWnd" , NULL) , 0x111 , 404 , 0)
// Réorganiser toutes les fenêtres en mosaique verticale
SendMessage( appeldll32("user32","FindWindowA", "Shell_TrayWnd" , NULL) , 0x111 , 405 , 0)
// Restaurer toutes les fenêtres
SendMessage( appeldll32("user32","FindWindowA", "Shell_TrayWnd" , NULL) , 0x111 , 416 , 0)