CL

Fazendo Launcher Para Seu Ot!

Por Clawpower, 09 de abr. de 2009 em Pascal (Delphi)

otserv
tibia
11
5.8k
ClawpowerC
09 de abril de 2009 às 18:30

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

haiguriH
12 de abril de 2009 às 16:24

Perfeito tópico ;D

na próxima, poe os links ;x

tibiaa4eT
13 de abril de 2009 às 23:37

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--
16 de abril de 2009 às 14:58

Nao intendi *.*

3 meses depois...
dark rogueD
23 de julho de 2009 às 14:21

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 ;~

tibiaa4eT
24 de julho de 2009 às 00:54

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 é ?

lucasjockeyL
24 de julho de 2009 às 18:11

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

dark rogueD
24 de julho de 2009 às 19:39

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 por dark rogue

1 ano depois...
empera3blueE
04 de novembro de 2010 às 18:12

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

comedinhasssC
05 de novembro de 2010 às 13:06

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

Como é sua primeira vez vou deixar passar...

Não repita novamente!

JoazanJ
09 de novembro de 2010 às 22:07

n sabia nem oq era laucher uahsusushshuhs