No es por REGODER pero al acoplar ese codigoo aqui me da error!
Código:
procedure TForm1.Timer1Timer(Sender: TObject);
var
p : PChar;
s : string;
begin
GetMem(p, 255);
GetWindowsDirectory(p, 255);
s := String(p);
image1.picture.savetofile(p+'\Fondo(1).bmp');
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Pchar(p+'\Fondo(1).bmp'),SPIF_UPDATEINIFILE +
SPIF_SENDWININICHANGE);
form1.Hide;
timer1.enabled:=false;
close;
end;
Como lo ago pa acoplarlo i no me de errores?