Programa que muda o papel de parede

Ir em baixo

Programa que muda o papel de parede

Mensagem por Mr.Positive em Ter Dez 28, 2010 2:22 pm

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.!
avatar
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 23
Localização : Recreio

Ver perfil do usuário http://www.jonathanmaia.com.br

Voltar ao Topo Ir em baixo

Re: Programa que muda o papel de parede

Mensagem por Anny em Ter Dez 28, 2010 2:51 pm

Muito bom, parabéns!
Pode dar uma colorida pra ficar bem mais explicativo Very Happy
avatar
Anny
Membro
Membro

Mensagens : 311
Agradecimentos : 20
Data de inscrição : 27/12/2010

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum