Cacher et Afficher les icons du bureau

On va traiter dans ce message le fait de cacher et afficher les icons du bureau avec une petite application sous Delphi,preparez la form suivante :

dans le button avec caption 'cacher' editez ce code :
ShowWindow(FindWindow('Progman',nil),SW_HIDE);


et pour le button afficher:
ShowWindow(FindWindow('Progman',nil),SW_RESTORE);


maintenant on passe a l'affichage de fenetre de windows:
par ex comment on affiche le bureau,poste de travail.....

pour reliser cette application vous devez connaitre les adresses physiques des fenetre :
poste de travail:20D04FE0-3AEA-1069-A2D8-08002B30309D
impremente:A280-3AEA-1069-A2DE-08002B30309D 222

Dans la partie de const ajouter ça

explication de codes:
1 poste de travail
2 Peopriete de l'imprimente
3 proriete de reseau
5panneau de configuration............

le code de l'appele

et on va ecrire ce code dans le premier button dans cette forme :

et voila les codes de chaque button

1- ShellExecute(Handle, 'Open', 'explorer.exe ',MyComputer, '', SW_SHOWNORMAL);
2- ShellExecute(Handle, 'Open', 'explorer.exe ',MyComputer, '', SW_SHOWNORMAL);
3- ShellExecute(Handle, 'Open', 'explorer.exe ',PrintersObj, '', SW_SHOWNORMAL);
4- ShellExecute(Handle, 'Open', 'explorer.exe ',W200ConnectionsObj, '', SW_SHOWNORMAL);
5- ShellExecute(Handle, 'Open', 'explorer.exe ',ConfigObj, '', SW_SHOWNORMAL);
6- ShellExecute(Handle, 'Open', 'explorer.exe ',FavoritesResObj, '', SW_SHOWNORMAL);
7- ShellExecute(Handle, 'Open', 'explorer.exe ',WebFolder, '', SW_SHOWNORMAL);
8- ShellExecute(Handle, 'Open', 'explorer.exe ',IE, '', SW_SHOWNORMAL);
9- ShellExecute(Handle, 'Open', 'explorer.exe ',MyDoc, '', SW_SHOWNORMAL);
10- ShellExecute(Handle, 'Open', 'explorer.exe ',Task, '', SW_SHOWNORMAL);
11- ShellExecute(Handle, 'Open', 'explorer.exe ',Trash, '', SW_SHOWNORMAL);