Fazendo Launcher Para Seu Ot! Delphi 7
2 participantes
Página 1 de 1
Fazendo Launcher Para Seu Ot! Delphi 7
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: xtibia
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: xtibia
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.
By: Igor junior/Before123
Email: igorpascoal-270
- 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: xtibia
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: xtibia
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.
By: Igor junior/Before123
Email: igorpascoal-270
before123- Camponês
- Mensagens : 3
Moedas : 9
Reputação : 2
Data de inscrição : 28/06/2012
Idade : 29
Re: Fazendo Launcher Para Seu Ot! Delphi 7
before123 escreveu: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: xtibia
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: xtibia
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.
By: Igor junior/Before123
Email: igorpascoal-270
Otimo Agradeçido
before123- Camponês
- Mensagens : 3
Moedas : 9
Reputação : 2
Data de inscrição : 28/06/2012
Idade : 29
Tópicos semelhantes
» Checando Se O Servidor Está Online E Seu Ping! Delphi 7
» Raell's Map Bom Para Ex Alta e Ex Baixa 7 Cits Novas !
» Raell's Map Bom Para Ex Alta e Ex Baixa 7 Cits Novas !
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|