Rafraichir le Bureau Windows


Après avoir modifié des informations dans la base de registre, par exemple le nom des icones du bureau, on peut avoir besoin de rafraichir le bureau pour que les modifications soient prises en compte.

Voici comment faire :

Rafraichir le Bureau Windows

procedure DesktopChange;
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;



Ou en utilisant ActiveDesktop :

Rafraichir le Bureau Windows (ActiveDesktop)

uses
  ShlObj, ComObj;

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


3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.006 Secs