ACTIVER OU DÉSACTIVER ACTIVE DESKTOP
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
25 oct. 2003 à 09:54
dbzsupreme Messages postés 1 Date d'inscription dimanche 3 juillet 2005 Statut Membre Dernière intervention 5 mai 2006 - 5 mai 2006 à 12:49
dbzsupreme Messages postés 1 Date d'inscription dimanche 3 juillet 2005 Statut Membre Dernière intervention 5 mai 2006 - 5 mai 2006 à 12:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12124-activer-ou-desactiver-active-desktop
https://codes-sources.commentcamarche.net/source/12124-activer-ou-desactiver-active-desktop
5 mai 2006 à 12:49
10 juin 2005 à 12:43
25 oct. 2003 à 09:54
Chapeau bas, BGK.
Si je peux me permettre une suggestion, ce serait de remplacer l'identificateur de classe par celui déclaré dans Shlobj.pas. Ainsi, les lignes :
const
ActiveDesktopCLSID: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
et
ADesk := CreateComObject(ActiveDesktopCLSID) as IActiveDesktop;
seraient simplement remplacées par :
ADesk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
Pour ceux que ça intéresse, d'autres identificateurs de classes sont déclarés dans cette même unité ShlObj.
Cette source m'a été très utile.
Ca mérite un 10/10 !