Fazendo Launcher Para Seu Ot!

[Clawpower 1]

Bote no seu projeto:

- 1 WebBrowser ( Aba Internet)

- 3 Botões! (Aba Standard )

- 1 Progressbar (Aba WIN 32)

- 1 Timer (Aba System)

 

Lembrando, so faza si souber fazer!

Vamos lá!

Bote a propriedade FullScreen do WebBrowser em True

Dai diminua o quanto quiser, e posicione o webbrowser,os botoes e o progressbar!

Mude os captions dos botões para: Play,Registrar,Site

Vamos codar agora!

 

No evento onCreate do form bote:

WebBrowser1.Navigate('X');

No lugar do x Bote o site do seu ot, ou si não o site de news! , bote entre as aspinhas!

Ex: http://www.xtibia.com/forum/Noticias-f30.html

No evento onClick do botão Play bote:

WinExec('C:\Arquivos de programas\Tibia\Tibia.exe', SW_SHOWNORMAL);

No evento OnClick do botão Registrar bote:

ShellExecute(Handle,'open','X',nil,nil,SW_NORMAL);

No lugar do X Bote o Site de registrar do seu ot!

EX: www.xtibia.com/forum/register.php

No evento OnClick do Botão site bote:

ShellExecute(Handle,'open','X',nil,nil,SW_NORMAL);

No lugar do x bote o site do seu ot

ex: xtibia.com

No Evento OnTimer do Timer bote:

var
Claw: integer;
begin
ProgressBar1.Max := 1000000;
for Claw := 0 to 1000000 do
Progressbar1.Position := Claw  ;
if ProgressBar1.Max = 1000000  then
Timer1.Enabled := False;
Button1.Enabled := True

 

O button1 ali eh o botão do play.....

 

TERMINAMOS! a parte do codigo!

 

Explicando o que o programa fazera!

Ao o programa abrir, ira loadar a pagina de news do seu ot, no webrowser, e o progressbar ira carrega(so pra disfarça ahiehoaeaeoh), dai habilitara o botão PLAY!, dai eh so aperta o play ira abrir o tibia

 

Dai agora eh so vcs fazer o que quiserem, botar um design bonito, a parte fisica ja terminamos!

 

Lembrando que so ira abrir o tibia se tiver na pasta do Launcher os arquivos:

Tibia.Pic, Tibia.Dat, Tibia.Spr.

 

Créditos: Claw

[haiguri 17]

Perfeito tópico ;D

na próxima, poe os links ;x

[tibiaa4e 86]

Hehe eu tava pensando em fazer algo assim

 

Só que com algum ot manager

tipo ele seria + - um notepad ++ gerenciando todos os xml e talz...

 

+ to sem tempo o0

 

Parabens por trazer isso aqui

 

Quem sabe teremos + programadores delphi

[-Fark- 4]

Nao intendi *.*

[dark rogue 3]

Está bom, mas pode dá errado ;o

E se por um acaso eu insalar meu tibia no disco D?

crash :~

 

A ideia é boa, mas o codigo precisa ser melhorado. Vou dar uma olhada ake, e postarei nessa seção(paradissima) uns códigos novos ;~

[tibiaa4e 86]

Pode usar uma janela para escolher o local do .exe (esqueci o nome dela no delphi) e guardar numa variavel

e usa-la no shellexecute

 

Pelo q lembro winExec n funfa em winXp não é ?

[lucasjockey 1]

Usa o ShellExecute pra abrir o EXE, vai da na mesma...

[dark rogue 3]

Até onde eu sei o winexec não é recomendado pela Microsoft, pois pode ser que futuramente não esteja mais disponível.

Editado Julho 24, 2009 por dark rogue

[empera3blue 0]

intendi nd poderia fazer um tópico com uma liguagem maix noob!!??

[comedinhasss 235]

Amigo, reviver tópicos pode ser considerado como spam...

Como é sua primeira vez vou deixar passar...

Não repita novamente!

[Joazan 16]

n sabia nem oq era laucher uahsusushshuhs