Rafraichir le bureau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 400 fois - Téléchargée 34 fois

Contenu du snippet

Ben ca rafraich le bureau koi !

Ajouter
ShlObj, ComObj
dans uses

Source / Exemple :


const CLSID_ActiveDesktop: TGUID= '{75048700-EF1F-11D0-9888-006097DEACF9}';
var ActiveDesktop: IActiveDesktop;
ActiveDesktop:= CreateComObject(CLSID_ActiveDesktop)as IActiveDesktop;
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

A voir également

Ajouter un commentaire Commentaires
Messages postés
22
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
25 juin 2008

juste 2 choses :

- en regardant le fichier << shlobj.pas >> j'ai vu que la déclaration de
CLSID est inutile puisque elle est déjà faite.

- La 2ème chose est destiné à GrandVizir : à quoi sert "CoInitialize(nil)"
je suis assez novice.
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
21
Ca rafraîchit effectivement le bureau, mais il manque des choses. Autant donner un petit prog, mais qui bugge à la fin. De la mémoire doit être libérée, et... ?!

program Project1;
uses ShlObj, ActiveX, ComObj;
const CLSID_ActiveDesktop : TGUID= '{75048700-EF1F-11D0-9888-006097DEACF9}';
var ActiveDesktop: IActiveDesktop;
{$APPTYPE Gui}{$R-}
begin
CoInitialize(nil);
ActiveDesktop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
//CoUninitialize;
end.

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.