Programa que muda o papel de parede

Tutorial

Requisitos:

1 Edit
2 Buttons
1 OpenDialog

Crie uma nova aplicação e adicione os componentes acima

No evento OnClick do Button1 ponha o código:

if OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.FileName;
end;

No evento OnClick do Button2 ponha o código:

var
Arquivo: String;
begin
Arquivo:= Edit1.Text;
SystemParametersInfo(SPI_SetDeskWallPaper, 0, PChar(Arquivo), 0);
end;

Retire o begin q está antes do var

Funções:

O Button1 será para escolher a imagem
O Button2 será a função que irá mudar o Plano de Fundo

Opcional:
Adicione Labels onde precisar

Observações:
Bom, só funciona com imagens JPG.



Créditos:
єvo'иick.!