Alterando o papel de parede

{Crie uma nova aplicação e adicione ao Form um componente TLabel, TEdit e um TButton. Limpe a propriedade Text do Edit1 e altere a propriedade Caption do Button1 para: "Clique para trocar o papel de parede" e a propriedade Caption do Label1 para: "Digite o caminho completo + o nome da imagem + a extensão".

Declare a procedure PapelDeParede na área de declarações Public da Unit conforme abaixo:}

public
{ Public declarations }
procedure PapelDeParede(bitmap: string);

{Agora copie a procedure na área Implementation:}

procedure TForm1.PapelDeParede(bitmap: string);
var
pBitmap : pchar;
begin
bitmap:=bitmap+#0;
pBitmap:=@bitmap[1];
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap, SPIF_UPDATEINIFILE);
end;

{Faça a chamada à procedure PapelDeParede no evento OnClick do Button1 (veja abaixo):}

procedure TForm1.Button1Click(Sender: TObject);
begin
PapelDeParede(Edit1.Text);
end;

{Agora é só executar o aplicativo, mas não se esqueça que só podem ser usadas imagens com extensão BMP. }