Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

Programa que muda o papel de parede

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3768
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

Programa que muda o papel de parede

Mensagem por MrViSiBLe em Dom 3 Out 2010 - 4:13

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:


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



No evento OnClick do Button2 ponha o código:


Quotevar
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, estou tentando resolver já

    Data/hora atual: Seg 21 Ago 2017 - 15:39