Cita:
|
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