[Dúvida] Me Ajudem

[Krathos 13]

Ae galera to com uma dúvida aqui chata e pode ser coisa simples olhem meu atualizador

 

 

Olhem os códigos e me dizem uma coisa:

 

unit Unit4;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ActnMan, ActnColorMaps, XPMan, ExtCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

XPManifest1: TXPManifest;

Image1: TImage;

Memo1: TMemo;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

begin

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

end;

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if DirectoryExists(Edit1.Text) then

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

else

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

end;

 

end.

 

Quando eu clico em atualiza o gc não está atualizando nem abrindo e posso ter errado em algum código? me deem um help.

[DragonBoss 9]

pode ser erro no diretorio, nessa parte :

 

if DirectoryExists(Edit1.Text) then

WinExec(PChar(Edit1.Text+'grandchase.exe__kogstudi os_skip_patchtimecheck__'),SW_SHOW)

 

tenta tira a parte '__kogstudi os_skip_patchtimecheck__'

 

ae vai fika assim :

 

if DirectoryExists(Edit1.Text) then

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

 

 

Testa ae ;D

 

Abraços ^^

[Krathos 13]

So que tipo Dragon naum adianta pois eu quero akele código pra atualizar antes da att acabar esse ai vai fica o patcher normal.

[DragonBoss 9]

nao manjo nd de grand chase :p , se tiveh duvida na programçao posso ajuda, mas na parte de script pro jogo nem manjo =/.... mas vc ja edito os scripts ke vao ser modificados ? ( n sei nd disso )... mas voce pode da uma olhada no topico do surf e ver melhor qq deu errado =P

 

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

 

flws...

abraços.

[Krathos 13]

nao manjo nd de grand chase :p , se tiveh duvida na programçao posso ajuda, mas na parte de script pro jogo nem manjo =/.... mas vc ja edito os scripts ke vao ser modificados ? ( n sei nd disso )... mas voce pode da uma olhada no topico do surf e ver melhor qq deu errado =P

 

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

 

flws...

abraços.

 

não é script naum estou com dúvidas tbm mas quero fazer esse atualizador logo ^^!

[Surfistinha£ 25]

procedure TForm1.Button1Click(Sender: TObject);

begin

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

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.enabled:=true;

Button2.visible:=false;

Button3.visible:=true;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

ShowMessage('Web Atualizador'+#13#10+'Diretório Salvo com Sucesso!');

Edit1.enabled:=false;

Button3.visible:=false;

Button2.visible:=true;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

ShellExecute(handle,'open',PChar('http://www.webcheats.com.br/forum'), '','',SW_SHOWNORMAL)

end;

 

end.

 

 

Butao 1 Atualizar

 

Butao 2 Alterar Diretório

 

Butao 3 Salvar Diretório

 

Butao 4 Abrir Grand chase

[Krathos 13]

Butao 1 Atualizar

 

Butao 2 Alterar Diretório

 

Butao 3 Salvar Diretório

 

Butao 4 Abrir Grand chase

 

Cara funfo certinho Thanks, agora um dúvida pq aqui ta dando erro no ShellExecute e falando que não reconhece o comando? e outra dúvida baxei akele seu vídeo para aprender a configurar um modificar de scripts e aqui eu não consegui visualizar em nenhum player .-..

[Surfistinha£ 25]

declare nas uses

 

Shellapi

[Krathos 13]

declare nas uses

 

Shellapi

 

Cara sou seu fã quando eu tiver espaço aqui na assinatura eu coloco sua fan bar xD mesmo assim dei special thanks e coloquei seu nome lá no atualizador :)!