Buscar por:

Alterando o papel de parede i

Código

Program wallpapr; 

uses Registry, WinProcs; 

procedure SetWallpaper(sWallpaperBMPPath : String; bTile : boolean ); 

var 

reg : TRegIniFile; 

begin 

// Mudando o Registro HKEY_CURRENT_USER 

// Control PanelDesktop 

// TileWallpaper (REG_SZ) 

// Wallpaper (REG_SZ) 

reg := TRegIniFile.Create('Control PanelDesktop' ); 

with reg do begin 

WriteString( '', 'Wallpaper',sWallpaperBMPPath ); 

if( bTile )then begin 

WriteString( '', 'TileWallpaper', '1' ); 

end else begin 

WriteString( '', 'TileWallpaper', '0' ); 

end; 

end; 

reg.Free; 

// Mostrar que o parametro do sistema foi alterado 

SystemParametersInfo( SPI_SETDESKWALLPAPER,0, Nil, SPIF_SENDWININICHANGE ); 

end; 

begin 

SetWallpaper( 'c:winntwinnt.bmp', False ); 

end.