Gracias, me vino al pelete, ya que no queria hacerlo leyendo el registro de windows. Ahora bien, tenes idea porque no puedo cambiarlo por codigo cuando la extensión no es BMP, por ejemplo JPG.
Probé con esto, pero los JPG no me los toma, y todos los wallpapers que tengo son JPG...
Código Delphi
[-]
Bitmap:='c:\file\back.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Pchar(BitMap),SPIF_UPDATEINIFILE +
SPIF_SENDWININICHANGE);
Saludos y gracias again
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;