Como criar um programa para substituir um arquivo por outro?

[Hitman. 21]

Alguem saberia?

 

tipo akeles hack de script do gc

 

 

tutorial pls

[bidoow 0]

http://www.webcheats.com.br/forum/delphi-vb/346816-fazendo-um-modificador-de-scripts-avancado.html

 

 

*-*

[Surfistinha£ 25]

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:

 

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

 

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

 

if DirectoryExists(Edit1.Text) then

ShowMessage('Diretório existente!')

else

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

 

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

 

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

 

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

 

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;

 

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:

 

ShellExecute(Handle,'open','www.webcheats.com.br','',nil,0);

 

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

 

So mudar os diretorios e os arquivos

[DragonBoss 9]

putz, sem kere zua ou flooda, mas ta tenso isso, td mundo ke entra na area de delphi eh pra criar modificador de script ou hack ( ou algo semelhante ) e sempre criam topicos e mais topicos sobre isso, soh da uma olhada na area ke eh facil encontra, poxa, nao kero ofender ninguem, mas esse acumulo de topicos relacionados ao mesmo assunto ja ta enxendo a area destinada a delphi com apenas copias e copias, só vai uma dica ae ao pessoal, custa nada peskisa um poko antes neh.

Eu sei ke nao custa nada responder esses topicos, apenas estou falando isso pq esta enxendo a area com o mesmo conteudo.

 

flw

Desculpe por quaisker palavras inapropriadas, apenas dei uma opiniao (que era pra ser construtiva)

 

Abraços.

[bidoow 0]

pois é mano todo mundo que cria hack e fica fodastico. se tivesse pelo menos um modera pra cuida dessa area mais nem isso tem ._. tenso

[matheusguerra 3]

nada cara;

ta certo que isso é errado, mais é só responde, aumenta o nº de Posts ^^

[bidoow 0]

eu não quero almenta o nº de posts, e sim ajudar as pessoas :'/

[DragonBoss 9]

se for pensa em numero de post eh soh i nos topicos novos e começa a fala "eh isso ae" ," segue a dica do cara de cima" , "eh nois na fita mano" --', ou perguntar coisas como "como da play em video" e quando alguem responde vc fala "vlw, eh isso ke eu keria saber", to falando na parte de ajudar, como o bidoow disse. Nao estou reclamando de ajudar, pq tbm axo q nao custa nada responde, porem, a ideia eh ajudar, e a criaçao de varios topicos parecidos/iguais ou com o mesmo conteudo nao tem o minimo cabimento, o que precisamos aki eh de um moderador ke cuide particularmente desta area ( antes ke falem, em hipotese alguma estou dizendo ke eu deveria virar modera --') soh estou postando isso, em razao dos varios topico nos quais as respostas sao, em maioria das vezes, iguais.

é isso.

 

Flw e abraços e mais uma vez, desculpe se a minha opiniao acabou sendo ofensiva para alguem.

[bidoow 0]

isso ai dragon é nois vamo muda essa bagaça veia , vamo organiza isso. tem que botar alguem de modera pra administra isso senão fica um ninho de rato [sejá não está um :o] UASHUASU

 

vlw

[DragonBoss 9]

verdade, ta ficando uma droga a sessao delphi, pelo menos 1 vez por dia fazem um topico relacionado a mesma coisa, precisam criar uma quicklist NOVA, pq akela ta antiga demais --' e excluir tantos outros topicos iguais a este.

 

flw

[matheusguerra 3]

num Posta isso ake não!

Posta lá pro HoruS

[Niik 4]

Vcs estão Corretos... Mas essa conversa de vcs foi flood sashuiahsuiahsauisa....

(e eu to continuando xD) Mas vcs estão certos essa área precisa de MOD!!

 

SURF PARAR MOD DELPHI!!!

[DragonBoss 9]

APOIADO, SURF PRA MODERADOR DELPHI

 

E NOIS VAI ACABA SENDO BANIDO POR ISSO, MAS MELHOR LEVA UM BAN DO KE DEXA A AREA VIRA UMA COPIA TOTAL DE TOPICOS.

 

OBS: ja enviei um relatorio do ke se passa ake na area destinada a reclamaçoes, ja que nao da pra envia private pro horus --' , kem kiser ver, esta no link ke se segue :http://www.webcheats.com.br/forum/opinioes-e-reclamacoes/356008-reclamacao-o-que-se-passa-na-area-de-delphi-e-vb.html

 

Flw, abraços.

[lucas98 1]

tbm to querendo saber como criar mais o tutorial do surf eu ja vi mais quando modifico as coisas para o jogo que eu quero da erro augo assim

[matheusguerra 3]

tbm to querendo saber como criar mais o tutorial do surf eu ja vi mais quando modifico as coisas para o jogo que eu quero da erro augo assim

 

é pq vc tem ke muda todo o diretorio do programa não só o nome