[PEDIDO] ME ajudem

[dinovu 0]

Bom gente é o seguinte eu to iniciando no delphi

 

eu estou fazendo um hack assim

 

eu quero que quando a pessoa clica em arquivos e depois carregar pasta eu quero que abre

 

a pasta do gunz

 

e quando eu clico em ativar o hack se extrai automaticamente dentro da pasta

 

quem suber fazer isso me add no msn ou deixa aki no forum

 

 

desde ja agradeço

:rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes:

[Surfistinha£ 20]

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)

 

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 TD 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+'the duel .exe'),SW_SHOW);

else

Application.MessageBox('Diretório do TD 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+'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;

 

Eu nao conheço este jogo mas so vc mudar as informações ne nao for script troque pra dll ou exe e tals..E mude os nomes do aquivos

[dinovu 0]

po

 

ou vlw mesmo mais vou precisar mais de ajuda

 

porque sou iniciante UAHS uhasA

 

nao tem como vc me add no msn

 

[email protected]

 

ou passa seu msn por favor

 

tenho algumas duvidas quero fica crak nesse negocio de programaçao

 

desde ja agradeço

:D:D:D:D:D:D:D:D:D:D:D:D:D:D

 

 

Agora vc é meu fan

[Surfistinha£ 20]

nao preciza disso e simples

 

vc vai saber

[-allucard!. 0]

Surf mano posta a video-aula para ele akela q vc postou no seu topico

e bem explicado sem erros foi assim q criei meu primeiro script

[Surfistinha£ 20]

mas esse e de the duel nen dar so tem de gc

[dinovu 0]

aff

 

ou cara me ajuda ai

 

faiz um video tutorial

 

eu nao entendo nadinha estou loco para aprender a criar programas

:D:D:D:D:D:D:D:D:D:D:D:D:D