RAFRAICHIR LE BUREAU

Signaler
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
-
Messages postés
22
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
25 juin 2008
-
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/11611-rafraichir-le-bureau

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.