Fazendo um Modificador de Scripts Avançado

[Romersom 0]

Tipo, eu faço tudo direitinho, como você fala ai: Dê dois clique no botão de Executar Grand Chase e Coloco :

if DirectoryExists(Edit1.Text) then

WinExec(PChar(Edit1.Text+'\main.exe" __kogstudios_original_service__'),SW_SHOW)

else

Application.MessageBox('Diretório do GC não foi encontrado.','ERROR!',MB_IConerror);

 

Dai depois que eu faço tudo eu salvo e tal, mas quando vou testar ele não abre, eu clico no executar e não abre =/.

[~OwneR~ 8]

WinExec(PChar('"'+Edit1.Text+'\main.exe" __kogstudios_original_service__'),SW_SHOW)

Essa parte em vermelho é um apóstrofo, aspas, apóstrofo =)

[Surfistinha£ 20]

begin

if DirectoryExists(Edit1.Text)

then

WinExec(PChar(Edit1.Text+'\main.exe" __kogstudios_original_service__'),SW_SHOW)

else

Application.MessageBox('Diretório do Grand Chase não foi encontrado.','ERROR!',MB_IConerror);

end;

 

vc tem o run_direct ?

[Romersom 0]

Tenho sim.

Eu queria saber como abrir ele pelo atualizador, saca ?

 

Abraços~'

[~OwneR~ 8]

WinExec(PChar(Edit1.Text+'\grandchase.exe'),SW_SHOW)

Isso?

[Surfistinha£ 20]

Pra att e assim

 

begin

WinExec(PChar(Edit1.Text + '\grandchase.exe __kogstudios_skip_patchtimecheck__'), 0);

end;

 

Abrir gc

 

WinExec(PChar(Edit1.Text + '\grandchase.exe'), 0);

[Romersom 0]

Dúvida resolvida, muito obrigado vocês.

 

Abraços~'

[lionsouzaa 0]

éé uma pergunta! kd o down do programa? xD

[Surfistinha£ 20]

ta aqui

 

http://www.webcheats.com.br/forum/delphi-vb/356435-quick-list-conteudo-relacionado-delphi-criada-em-03-04-2010-a.html

[lionsouzaa 0]

ta aqui

 

http://www.webcheats.com.br/forum/delphi-vb/356435-quick-list-conteudo-relacionado-delphi-criada-em-03-04-2010-a.html

 

obg! XD

 

Surf, seguite:

quando eu vo copila ele

ele da um erro tipo aparece em vermelho o codigo var

daih n compila! :s

 

Ae descobri era q n era pra fik assim:

 

begin

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\Script.kom';

ScriptFile:='Script.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

tinha q fik assim:

 

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\Script.kom';

ScriptFile:='Script.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

 

daih deu certo no meu :P

 

vleu surffee XD

[Surfistinha£ 20]

Apaga o begin e coloque so o var

[lionsouzaa 0]

Surfistinha£

pode mi add no msn?

[email protected]

[dragonpool12 6]

Obrigado Surfistinha , agora eu estou compreendendo sobre o delphi

ele é mais pratico, so o unico problema dele os erros constantes que você tem que arrumar

quando esta tentando criar algo mais com um tempo, eu vou saber tudo mesmmo

não fazendo um curso de programação.

 

Tranks.

[LorD.Chacal 0]

Eu estava mesmo procurando um post desses

vlw

[Surfistinha£ 20]

Obrigado Surfistinha , agora eu estou compreendendo sobre o delphi

ele é mais pratico, so o unico problema dele os erros constantes que você tem que arrumar

quando esta tentando criar algo mais com um tempo, eu vou saber tudo mesmmo

não fazendo um curso de programação.

 

Tranks.

 

--------------------------

 

Delphi vc apreende em minutos

 

 

Eu estava mesmo procurando um post desses

vlw

 

------------------------------------

 

Dinada agradece ai vlw

 

 

Muito obrigado

[Cardosinhu 0]

o deu tudo certo aki ... mais depois em que extensão eu salvo pra poder abrir? ja tentei em todas e so abre o projeto

[digof1 0]

Surfistinha,Seria Muito Pedir Que Fosse Colocasse Link De Download Dos Arquivos Que Precisa??

Se Der Os Mesmos Que Voce Feis O Post Vlw

[Surfistinha£ 20]

ta no delphi lek

[Cardosinhu 0]

inves dos buttons , serve CheckBox que eu fiz em um script pra ativar o hack , tinha que clicar na checkbox tem como faser ?

[Akilleks~™ 0]

Brigadão Surfista, aqui na minha "carreira de Delphi" iniciei fazendo esse programa ai:

 

 

 

Brigadão pelo tutorial, abraços.

[gordodelixinho 0]

oww

kra tem como vc me passa a source pk nom consigui!!!

[YaGoPrOx 0]

Fazendo um Modificador de Scripts Avançado

 

 

O que vamos precisar:

 

- 4 TSpeedButtons

- 1 TEdit

- 1 TGrouBox

- 1 TPanel

- 1 XPManifest (Opcional, somente para dar um visual melhor ao programa)

- 2 TLabel (1 é opcional, somente para colocar os créditos)

 

Usando os componentes citados acima, faça uma interface parecida com esta:

 

Vamos começar então...

 

Primeiro altere a propriedade Enabled do Edit1 para False como mostra a foto abaixo:

 

 

agora de 2 cliques no botão "Alterar / Salvar Diretório" e adicione o seguinte código:

 

 

 

depois de 2 cliques no botão "Verificar se o diretório existe" e adicione o seguinte código:

 

 

 

agora de 2 cliques no botão "Executar o Grand Chase" e adicione o seguinte código:

 

 

 

depois de 2 cliques no botão "Ativar o Novo Script" e adicione o seguinte código:

 

 

 

agora adicione ShellAPI na uses como mostra a foto abaixo:

Imagem

 

depois de 2 cliques no label "www.webcheats.com.br" e adicione o seguinte código:

 

 

 

agora vá no menu "Project" no delphi depois clique em "Options" e clique na aba "Application", agora coloque o nome do seu

 

programa no edit "Title" e escolha seu icone :P

 

Feito tudo isso compile seu projeto, o resultado devera ficar parecido com este:

 

Créditos: J-Ripper

 

 

feito tudo isso ai em cima como trago ele para a realidade

 

por que eu fiz tudo isso e o meu fiko como um projeto

[DragonBoss 8]

@YaGoPrOx

 

eh soh copilar, ou seja, salvar seu projeto e dps apertar F9 para se criar um executavel....

 

 

flw, abraços