Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Fazendo um Modificador de Scripts Avançado


Surfistinha£
 Compartilhar

Posts Recomendados

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 =/.

Link para o comentário
Compartilhar em outros sites

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 ?

Link para o comentário
Compartilhar em outros sites

 

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

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

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:

tutorialinterface.png

 

Vamos começar então...

 

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

 

TutorialEnabledFalse.PNG

 

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:

tutorialresultado.png

 

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

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.