Discussion :

[chapeau_melon]

Bonjour,

comment faire pour 'simuler' le 'show desktop' - l'icone dans le taskbar windows pour 'rafraishir' le bureau ?

Ceci à partir de WD

BAV

[chapeau_melon]

j'ai écris ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 PROCEDURE desktop()
 
nIdFic est un entier
sMaChaîne est une chaîne
// Ouverture du fichier
nIdFic = fOuvre("scfBureau.scf", foCréationSiInexistant+foLectureEcriture)
// On remplit la chaîne à écrire dans le fichier
sMaChaîne = "[Shell]"+RC+"Command=2"+RC+"[Taskbar]"+RC+"Command=ToggleDesktop"
// Ecriture dans le fichier
fEcritLigne(nIdFic, sMaChaîne)
// Fermeture du fichier
fFerme(nIdFic)
 
LanceAppli("scfBureau.scf")
Erreur(ErreurInfo())
//fSupprime("scfBureau.scf")
EnvoieTouche("{F5}")

Mais l'appli ne se lance pas pour cause de non WIN32 ?

Comment y remédier ?

[danielsoft]

Il faut utiliser lanceappliassocié, car il s'agit d'un fichier script

sinon voici la commande qui fonctionne directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
MonBureau est un objet Automation dynamique
MonBureau = allouer un objet Automation ("Shell.Application")
MonBureau>>toggledesktop()
libérer MonBureau

[chapeau_melon]

merci pour ta reponse, ton code est complet ?

[danielsoft]

merci pour ta reponse, ton code est complet ?

Oui, c'est exactement l'équivalent du code lorsqu'on appelle "Quick Launch" ou "Afficher le bureau".

sinon si tu veux simplement rafraichir l'ensemble des fenêtres (équivalent du F5) tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AppelDLL32("user32", "InvalidateRect", 0, 0, Faux)