Mudar o papel de parede

[rasorfist 0]

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:\windows\Arenito.bmp'),SPIF_SENDWININICHANGE);

end;

 

'C:\windows\Arenito.bmp' coloque o diretório da imagem!!