ACTIVER OU DÉSACTIVER ACTIVE DESKTOP

Signaler
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
-
Messages postés
1
Date d'inscription
dimanche 3 juillet 2005
Statut
Membre
Dernière intervention
5 mai 2006
-
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

Messages postés
1
Date d'inscription
dimanche 3 juillet 2005
Statut
Membre
Dernière intervention
5 mai 2006

comment on execute cette apllication?
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009

tres bon code merci bgk bon boulot
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
C'est un remarquable travail d'adaptation que tu as réalisé là !
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 !