[AJUDA] Delphi 7

[l2lipe 0]

pessoal eu preciso de um tuto de preferencia com fotos para criar um modificador de scripts para o meu hacker do gc....

POStem aki tudo com fotos

frz!!!!!!:confused::confused::confused::confused::confused::confused::confused:

[matheusguerra 3]

cara ja tem tuto no forum:

Fazendo um Modificador de Scripts Avançado :D ^^

Da uma pesquisada primero antes de fica criando topico

[DragonBoss 8]

É mano, como o matheusguerra disse, peskise antes, pois vc pode ta criando topico de algo facil de encontrar, isso evita ke sejam criados 10000 topicos iguais =P

 

abraços,

flws.

[Surfistinha£ 20]

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 <a href='#' onClick="hwClick1338864(undefined);return false;" style='cursor: hand; color:#006600; text-decoration:underline; border-bottom:dotted 1px;' onmouseover="hw1338864(event, this, 'undefined'); this.style.cursor='hand'; this.style.textDecoration='underline'; this.style.borderBottom='solid';" onmouseout="hideMaybe('HOTWordsTitle'); this.style.cursor='hand'; this.style.textDecoration='underline'; this.style.borderBottom='dotted 1px'; " oncontextmenu="return false;">créditos</a>)

 

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 <a href='#' onClick="hwClick0338864(undefined);return false;" style='cursor: hand; color:#006600; text-decoration:underline; border-bottom:dotted 1px;' onmouseover="hw0338864(event, this, 'undefined'); this.style.cursor='hand'; this.style.textDecoration='underline'; this.style.borderBottom='solid';" onmouseout="hideMaybe('HOTWordsTitle'); this.style.cursor='hand'; this.style.textDecoration='underline'; this.style.borderBottom='dotted 1px'; " oncontextmenu="return false;">sucesso</a>')

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