Alterando o papel de parede 3

//Para testar o exemplo abaixo inclua no seu form um componente Button e no evento OnClick o código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
PChar('C:windowsArenito.bmp'),SPIF_SENDWININICHANGE);
end;