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


    Sistema de Update

    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

    Sistema de Update

    Mensagem por MrViSiBLe em 7/21/2010, 06:32

    Bom nesse sistema, é um código muito simples, ele irá baixar um programa de seu [Você precisa estar registrado e conectado para ver este link.]

    em Uses coloque
    Citação:


    urlmon, shellapi;


    coloque a função:


    Citação:


    function DownloadFile(Source, Dest: string): Boolean;
    begin
    try
    Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
    except
    Result:= False;
    end;
    end;



    Adicione o componente IdHTTP1 encontrado na palheta Indy Clients.
    Adicione um TMemo na palheta standard.

    Agora, crie um arquivo.txt chamado Verificar, dentro dele escreva, o nome da sua form.
    exemplo:forumvisible Trainer v1.0.

    upe ele em uma pasta em seu ftp, agora coloque um botão no seu programa e adicione o código:



    Citação:


    //ele pega o arquivo Verificar.txt e escreve no memo
    Memo1.Lines.text:=IdHTTP1.Get('http://google.com.br/Verificar.txt');

    //se o estiver escrito o mesmo nome da form no memo ele fala que já tá atualizado.
    if Memo1.Lines.Text = LoaderForm.caption then begin
    MessageBeep(MB_IConerror);
    showmessage('Você já está com a versão mais Atualizada!');
    end else

    //se não tiver escrito minha mãe tem filho no arquivo .txt que irá passar para o memo ele baixa.
    if messagedlg('Há uma nova versão Disponível, deseja baixa-la?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin

    //baixa o arquivo e salva na pasta do programa com nome de SrDarkness.
    if DownloadFile ('http://google.com.br/forumvisible.exe','forumvisible.exe') then

    //faz um barulinho de OK!
    MessageBeep(MB_OK);

    //se o arquivo cheatsbrasil.exe existir aparece a mensagem que baixou com sucesso.
    if fileexists('forumvisible.exe') then begin

    //da uma mensagem que atualizou, fecha o programa, e abre o novo!
    showmessage('Atualização Concluída, clique em Ok para Reniciar a aplicação!');
    application.terminate;
    shellexecute (handle, 'open', forumvisible.exe', '', nil, sw_shownormal);
    end;
    end;



    Conclusão: ele irá ver se está escrito forumvisible Trainer v1.0 no
    arquivo, e ver se a form também está escrito forumvisible v1.0, se os
    dois forem iguais aparecerá que já está com a versão atualizada e não
    fazerá nada, agora se você escrever blá blá blá no arquivo .txt, ele irá
    atualizar.

    só que em vez de escrever blá blá blá, coloque forumvisible Trainer
    v2.0, e no 2.0 você edita de 1.0 pra 2.0 ler no arquivo, entenderam?

    Créditos: SrMaster


    _________________
    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/5/2016, 03:29