Cambiar Papel Tapiz con Active Desktop ??
Publicado por Carlos E Martinez (7 intervenciones) el 07/11/2001 23:49:54
Aca amigos tenemos un problemita bueno para ver quien sabe como resolverlos. Como puedo cambiar el Papel Tapiz del computador cuando tengo configurado el Active Desktop??. No Sirve el API:
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;
SystemParametersInfo( SPI_SETDESKWALLPAPER, 1,Char( "FileName"), SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE );
end;
En Win98 con la opcion de ver fondo como web, no sirve porque esta API no lo soporta. Sabes ustedes como??
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;
SystemParametersInfo( SPI_SETDESKWALLPAPER, 1,Char( "FileName"), SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE );
end;
En Win98 con la opcion de ver fondo como web, no sirve porque esta API no lo soporta. Sabes ustedes como??
Valora esta pregunta
0