Cambiar imagen
Hola que tal, necesito hacer un programa que cambie la imagen de fondo de escritorio de windows todos los días
¿Alguien sabe como puedo hacerlo?
Gracias
¿Alguien sabe como puedo hacerlo?
Gracias
1 Respuesta
Respuesta de felixthecat
1
Para cambiar la imagen del wallpaper puedes utilizar el siguiente código:
Uses
Registry, WinProcs;
procedure SetWallpaper(
sWallpaperBMPPath : String;
bTile : boolean );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do
begin
WriteString( '', 'Wallpaper',
sWallpaperBMPPath );
if( bTile )then
begin
WriteString(
'', 'TileWallpaper', '1' );
end else
begin
WriteString(
'', 'TileWallpaper', '0' );
end;
end;
reg.Free;
SystemParametersInfo(
SPI_SETDESKWALLPAPER,
0,
Nil,
SPIF_SENDWININICHANGE );
end;
Si lo quieres cambiar todos los días solo tienes que meterlo dentro de un procedimiento disparado por un TTimer, por ejemplo.
Existen programas escritos en delphi que ya hacen esto. Puedes checarlo en:
http://www.torry.net/util_desktop.htm
Algunos incluyen código fuente.
Uses
Registry, WinProcs;
procedure SetWallpaper(
sWallpaperBMPPath : String;
bTile : boolean );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create('Control Panel\Desktop' );
with reg do
begin
WriteString( '', 'Wallpaper',
sWallpaperBMPPath );
if( bTile )then
begin
WriteString(
'', 'TileWallpaper', '1' );
end else
begin
WriteString(
'', 'TileWallpaper', '0' );
end;
end;
reg.Free;
SystemParametersInfo(
SPI_SETDESKWALLPAPER,
0,
Nil,
SPIF_SENDWININICHANGE );
end;
Si lo quieres cambiar todos los días solo tienes que meterlo dentro de un procedimiento disparado por un TTimer, por ejemplo.
Existen programas escritos en delphi que ya hacen esto. Puedes checarlo en:
http://www.torry.net/util_desktop.htm
Algunos incluyen código fuente.
