Activer ou désactiver active desktop

Soyez le premier à donner votre avis sur cette source.

Vue 34 349 fois - Téléchargée 1 268 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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

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

tres bon code merci bgk bon boulot
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
25
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 !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.