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!

Últimos assuntos

Sistema de Update

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3725
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

    Data/hora atual: 8/19/2017, 09:16