Necessario
Basico conhecimento em delphi
txtDirectory ou Edit.txt
4 Buttons
No 1butao remomei ele para Atualizar e add os seguintes codes
No 2 butao remomei ele Alterar Diretório e add os seguintes codes
Ou se for Edit.txt
No 3 butao remomei ele para Salvar Diretório e add os seguintes codes
No 4 butao renomei ele para Abrir Grand chase e add os seguintes codes
Créditos: (Sei la no google não tinha nada então não sei mas se vc souber posta aew pra mim edita
) Ninguem!
Basico conhecimento em delphi
txtDirectory ou Edit.txt
4 Buttons
No 1butao remomei ele para Atualizar e add os seguintes codes
begin
WinExec(PChar(Edit1.Text + '\grandchase.exe __kogstudios_skip_patchtimecheck__'), 0);
end;
WinExec(PChar(Edit1.Text + '\grandchase.exe __kogstudios_skip_patchtimecheck__'), 0);
end;
No 2 butao remomei ele Alterar Diretório e add os seguintes codes
begin
Edit1.enabled:=true;
Button2.visible:=false;
Button3.visible:=true;
end;
Edit1.enabled:=true;
Button2.visible:=false;
Button3.visible:=true;
end;
Ou se for Edit.txt
begin
Edit1.enabled:=true;
Button2.visible:=false;
Button3.visible:=true;
end;
Edit1.enabled:=true;
Button2.visible:=false;
Button3.visible:=true;
end;
begin
ShowMessage('Suf Atualizador'+#13#10+'Diretório Salvo com Sucesso!');
Edi1.enabled:=false;
Button3.visible:=false;
Button2.visible:=true;
end;
ShowMessage('Suf Atualizador'+#13#10+'Diretório Salvo com Sucesso!');
Edi1.enabled:=false;
Button3.visible:=false;
Button2.visible:=true;
end;
No 4 butao renomei ele para Abrir Grand chase e add os seguintes codes
begin
winexec(pchar('C:\Level Up! Games\Grand Chase Season 2\Grand Chase.exe'),sw_show);
end;
winexec(pchar('C:\Level Up! Games\Grand Chase Season 2\Grand Chase.exe'),sw_show);
end;
Créditos: (Sei la no google não tinha nada então não sei mas se vc souber posta aew pra mim edita
![Sorridente](https://forum.guiadohacker.com.br/images/smilies/biggrin.png)