Color de fondo de pantalla

[madiazg]

Muy bien pensado y funciona perfectamente.
No se me hubiera ocurrido simular de esta forma el fondo negro del escritorio.
Muchas gracias y saludos...
Miguel Angel

[dec]

Hola,

Un buen truco. Podrías publicarlo como tal en la sección correspondiente. Yo también le estuve dando algunas vueltas a este tema y no llegué a sitio alguno, y no se me hubiera ocurrido cambiar el color de fondo de la pantalla colocando como papel tapiz una imagen de dicho color. Muy bueno.

[aeff]

hola dec, ¿como se publican los trucos? y gracias

[madiazg], ok!

saludos

[dec]

Hola,

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

[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;