Rafraichir le bureau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 525 fois - Téléchargée 36 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
cs_pepitto
Messages postés
22
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
25 juin 2008

12 juin 2006 à 19:22
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.
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
28 déc. 2004 à 22:49
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.