Cambiar mi Wallpaper en RUntime

[Neftali [Germán.Estévez]]

Empezado por bustio

...que mi aplicacion Delphi cambie el Tapiz del Desktop por codigo y en RUntime. El ejemplo que esta en un hilo del foro no hace nada....

Supongo que debe ser para versiones anteriores de Windows; Prueba con éste código:

Código Delphi [-]
var
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
    as IActiveDesktop;
  ActiveDesktop.SetWallpaper('c:\winnt\Azteca.bmp', 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

Deberás añadir al uses: ComObj y ShlObj