[dec]

Cómo colocar un tapiz en Windows de forma que quede en mosaico (Tiled)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
 R:TRegistry;
begin
  R := TRegistry.Create;
  If Not R.OpenKey('\Control Panel\DeskTop', False) Then ShowMessage('No se ha podido abrir');
  R.WriteString('TileWallpaper', '1'); // Aqui pon '1' si lo quieres en Mosaico
                                       // y '0' si lo quieres centrado
  R.Free;
  If OpenDialog1.Execute  Then
    SystemParametersInfo( SPI_SETDESKWALLPAPER, 1,Char( OpenDialog1.FileName ), SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE );
end;

Eso si, tienes que tener en cuenta que hay Windows 95 con el Active Desktop y Win98 con la opcion de ver fondo como web y puedes poner html como fondo y esta API no lo soporta.