Color de fondo de pantalla

[aeff]

Empezado por dec

Hola,

En el apartado de trucos, más concretamente en Insertar nuevo truco.

ok, creo que ya lo registre como un truco

[fide]

Oyeme ese truco es una maravilla por que no cree ni en las restricciones de fondo que se le aplican a XP con el Active Directory. Lo unico malo es que es un poquito lento. Pero que se va a hacer. Si asi resuelve el problema jejeje...

[fide]

Bueno. Aqui una sencilla modificacion del truco anterior, pero no para cambiar el color de fondo. Sino la imagen de fondo pero con ADSI. Esto cambia el fondo del escritorio aunque este restringida esta opcion por el admin de red jejejeje.

Código Delphi [-]
uses ShlObj, ActiveX, ComObj, Registry;

procedure SetDesktopBackgroundImage(vBmpPath: String);
var
  shDesk: IActiveDesktop;
  vWallPOp: TWallPaperOpt;
begin

 try
  shDesk := (CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop);
  shDesk.SetWallpaper(StringToOleStr(vBmpPath), 0);
  vWallPOp.dwSize := Sizeof(TWallPaperOpt);
  vWallPOp.dwStyle := WPSTYLE_TILE;
  shDesk.SetWallpaperOptions(vWallPOp, 0);
  shDesk.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
 finally
  FreeObjectInstance(Pointer(shDesk));
 end;

end;

Aqui un ejemplo de uso...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  SetDesktopBackgroundImage(ExtractFilePath(Application.ExeName) + 'bmp.bmp');

end;

[aeff]

mi querido Fide, antes de publicar codigos en el club, por favor, haz una busqueda por el Club para ver si no existe ya esto mismo, esto que acabas de publicar esta escrito aqui mismo, la razon por la que es un poco lento es en parte debido al tamaÑo del bitmap que se crea, pero solo es una pequeÑa parte, la otra es problema del SO y la PC,

otra cosa, eso funciona?
no creen?

suerte!

[[cHackAll]]

Empezado por aeff

...antes de publicar codigos en el club, por favor, haz una busqueda por el Club para ver si no existe ya esto mismo, esto que acabas de publicar esta escrito aqui mismo...

Bueno en mi humilde opinion no es un crimen redundar; la telaraña es un compendio de repeticiones y el Club tambien cae en ello, vi que fide no realizó una "publicación" y tambien creo que realizar una búsqueda para realizar cualquier post en el Club lo convertiría en un tedioso GoogleClubDelphi o algo así...

Tampoco creo que sea lo mismo lo de éste hilo, SetWallpaperOptions es un método no analizado en tal hilo, y tampoco ví la liberación del objeto.

Empezado por aeff

...otra cosa, eso funciona?
no creen?

Seguramente la respuesta nos la dará el mismo Delphi.

Saludos

[aeff]

hmmmm, ok! de acuerdo contigo *cHackAll*, si funciona el truco!

[fide]

Okas, aunque no creo que lo que publique aqui esta replicado cuando balla a postear algo debes en cuando mirare a ver si no esta duplicado.