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'); 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.