dec
30-06-2006, 14:51:06
Cómo colocar un tapiz en Windows de forma que quede en mosaico (Tiled)
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.
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.