Launcher com Auto-update e Verificador de versão Simples + Extras

Olá pessoal depois de um tempo sem criar novos tópicos aq, hoje estou aqui para mostrar o tutorial que ensinar a criar um launcher com auto-update e verificador de versão, mas como funciona?

R: Simples, ao abrir o launcher ele vai se conectar a um determinado ip, baixar um arquivo chamado 'versaoatual.txt', abri o mesmo em um memo, depois vai carregar em outro memo o arquivo 'versao.txt', que deverá estar na pasta do launcher, se o número da versão de ambos for igual ele libera o botão jogar, se não for, ele baixa o 'update.txt', carrega em um terceiro memo, e baixa o arquivo que estiver escrito na primeira linha dele, exemplo: main.exe - mas lembre-se ele só baixa um arquivo por versão, eu já estarei colocando a faca e o queijo na mão de vocês, agora basta corta-lo, ou seja, através deste tutorial, se você tiver o minimo de experiência, dá pra fazer um launcher avançado, mas isto é com vocês.

No fim do tópico, se encontra um tutorial extra, que é de como fazer com que seu launcher extraia arquivos .rar, assim facilitando a aplicação de vários arquivos em um só download.
É necessário um conhecimento Básico em delphi!
Vamos lá!

Tutorial criando launcher:

Antes de mais nada saiba que não vou postar o código no tópico, vocês deverão ler o mesmo nas imagens e escreve-lo, pois se você apenas copiar e colar não vai aprender nada.

Comece um novo projeto no delphi;

Agora salve o mesmo em uma pasta de sua preferencia;

Nesta pasta crie um arquivo de texto com nome "versao" -- sem as "";

Agora na pasta www do seu appserv/host crie dois arquivos de texto um com nome de "versaoatual" e outro com nome "update";

Agora já podemos começar a programar;

Adicione um Idhttp - palheta Indy Clients;

Um timer - Palheta System;

Uma progressbar - Palheta Win32;

Um label - Palheta Standard; (Apague o texto)

Um Button - Palheta Standard; (Renomeie para Jogar)

3 Memos - Palheta Standard; (Na propriedade name do memo 1 renomeei para lista, e na propriedade Visible dos 3 memos deixe False)

E um WebBrowser - Palheta Internet.

Organize-os da seguinte maneira:



--Códigos--

*Etapa 1:

Dê dois cliques no button1 e adicione o código:



No event OnCreate do form1 adicione:



No Event OnWork do idhttp adicione:



Agora no Event OnWorkBegin:

Click this bar to view the full image.

E por fim no Evento OnWorkEnd:

Click this bar to view the full image.

*Etapa 2[FINAL]:

Obs: Leia os comentários de verde no código para saber como configurar.

Dê dois cliques no Timer 1 e adicione o primeiro código:

Click this bar to view the full image.

Agora abaixo do código digitado acima adicione estes:

Click this bar to view the full image.

Click this bar to view the full image.

Extra - Colocando um extrator .rar no launcher

Obs: É necessário que você tenha o componente "DFUnRar" instalado em seu delphi.

Vamos começar:

Adicione mais um timer a sua form;
Adicione um componente "DFunrar" na sua form;
Adicione também um Edit, altere as seguintes propriedades: Text : deixe em branco e Visible deixe False;

Agora você deverá procurar pelo último código da etapa 2 que foi passado no tutorial acima e adicionar o código:

timer2.enabled := True;

Veja na imagem aonde você deve botar este código (observe que está acima da área em azul):

Click this bar to view the full image.

Agora dê dois cliques no timer 2 e adicione o código:

Click this bar to view the full image.

Pronto, agora o seu launcher pode extrair o arquivo .rar que estará escrito no update.txt
Não se esqueça de colocar o "unrar.dll" na pasta do seu launcher!

Creditos : ~Mizuki

E à quem criou o código de download via idhttp.