uses
SysUtils,
windows;
function cambiarFondo(const imagen:string):boolean;
begin
Result:=SystemParametersInfo(20,0,@imagen[1],0);
end;
var
foto:string;
begin
writeln(cambiarFondo('image.bmp'));
writeln('Imagen cambiada');
readln;
end.
Viendo que Doddy sigue aportando codigo sobre la api de windows traduje esta funcion que publico http://indetectables.net/viewtopic.php?f=100&t=53787
Skype:crack8111