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.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    Programa que muda o papel de parede

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    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 10/3/2010, 04: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á


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/8/2016, 02:54