[Delphi] Criando Atualisador GC

por **Coringa¹³** Ter Dez 21, 2010 11:26 am

´Necessario :

Basico conhecimento em delphi
txtDirectory ou Edit.txt
4 Buttons

No 1 butao remomei ele para Atualizar e add os seguintes codes :

Código HTML:
CÓDIGO:
WinExec(PChar(Edit1.Text + '\grandchase.exe __kogstudios_skip_patchtimecheck__'), 0);

No 2 butao remomei ele Alterar Diretório e add os seguintes codes :

Código HTML:
CÓDIGO:
Edit1.enabled:=true;
Button2.visible:=false;
Button3.visible:=true;

Ou se for Edit.txt :

Código HTML:
CÓDIGO:
Edit1.enabled:=true;
Button2.visible:=false;
Button3.visible:=true;

No 3 butao remomei ele para Salvar Diretório e add os seguintes codes :

Código HTML:

CÓDIGO:
ShowMessage(' dargains Atualizador'+#13#10+'Diretório Salvo com Sucesso!');
Edi1.enabled:=false;
Button3.visible:=false;
Button2.visible:=true;

No 4 butao renomei ele para Abrir Grand chase e add os seguintes codes :

Código HTML:
CÓDIGO:
winexec(pchar('Edit1.text +'\grandchase.exe'),sw_show);