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 10/4/2010, 00:01

    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 urlmon,shellapi;

    coloque a funçã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: SrMaster Trainer v1.0.

    upe ele em uma pasta em seu ftp, agora coloque um botão no seu programa e adicione o código:
    (ele está todo comentado, só não consegue quem é burro.)


    Quote]//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 SrMaster.
    if DownloadFile ('http://google.com.br/SrMaster.exe','SrMaster.exe') then

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

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

    WinExec(PChar('C:\Arquivos de programas\WinRAR\WinRAR.exe e C:\ATUALIZADO.rar C:\SrMaster'),SW_HIDE);
    //extrai se tiver no winrar. (arrume o nome do arquivo, alí está .exe, se for .exe remova essa linha.

    //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', 'SrMaster.exe', '', nil, sw_shownormal);
    end;
    end;



    Conclusão: ele irá ver se está escrito SrMaster Trainer v1.0 no arquivo, e ver se a form também está escrito SrMaster Trainer 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 SrMaster 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/2/2016, 15:09