Montrer et cacher les icônes du bureau

[Le Soldat Inconnu]

Pour oliv et ceux que ça intéresse : pour cacher le nom d'un icône, il suffit de le renommer comme suit :

mettez le pointeur de votre souris sur l'icône concerné
cliquez avec le bouton droit de la souris
choisissez Renommer
maintenez la touche ALT enfoncée
tapez '0160' à la place du nom
faites Entrée

[Oliv]

Et pour plusieurs icones ?

[Chris]

Pour Regis:

Un petit bout de code que j'ai trouvé dans CodeArchiv, pour minimiser toutes les fenêtres. (C'est une partie du fichier OpenSystemWindows.pb).

Code : Tout sélectionner

Shell_TrayWnd= FindWindow_("Shell_TrayWnd", NULL) 
result = SendMessage_ (Shell_TrayWnd,$111,419,0)

Tu pourrais peut-être utiliser ça dans ton code que tu as donné dans ton post précédent.

Ca donnerait ça :

Code : Tout sélectionner

Procedure ShowDesktop() 
  Shell_TrayWnd= FindWindow_("Shell_TrayWnd", NULL) 
  result = SendMessage_ (Shell_TrayWnd,$111,419,0) 
EndProcedure 

ShowDesktop() 

Bureau = FindWindow_("Progman", "Program Manager") 
If IsWindowVisible_(Bureau) ; Si les icônes sont visibles 
  ShowWindow_(Bureau, 0) ; Cache les icônes 
Else 
  ShowWindow_(Bureau, 1) ; Montre les icônes 
EndIf 

Chris

[Le Soldat Inconnu]

Pas mal, même super chouette et nettement plus rapide

[Chris]

Ceci dit, je ne l'ai testé que deux ou trois fois. A priori, pas de problème, mais bon... à vérifier quand même!!!

Chris