Duvida Basica mesmo. Erro na Declaração.

[biribahiba 0]

Seguinte gente, to tentando criar um programa pra automaticamente copiar o mod para a devida pasta do jogo...

fiz primeiramente um extremamente simples, porem, não funcionou devido a um erro na declaração...

alguem da um help me dizendo aonde eu errei? ;OOO vlw.

aliais, tem como mandar ele copiar mais de um arquivo de uma vez? hehe, vlw.

 

 

var

Form1: TForm1;

CHARS_T_BODY : String;

CHARS_T_HEAD : String;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.GroupBox1Click(Sender: TObject);

begin

If CopyFile('C:\Users\Gabriel\Desktop\Hacks\Color Chams\CHARS_T_BODY.rez,CHARS_T_HEAD.rez','C:\Level Up! Games\Combat Arms\Game', true) then

begin

ShowMessage('Copiado com sucesso!')

end;

 

end;

 

ai da o seguinte erro: [Error] Unit1.pas(48): Declaration expected but end of file found..

 

alguem ajuda? bem rapidinho. vlw.

[~OwneR~ 8]

Adicione end. no final do arquivo (com o ponto mesmo).

[biribahiba 0]

Adicione end. no final do arquivo (com o ponto mesmo).

 

kct, eu devo ser muito zé...

ehaueauh, valeu. deu certo. so nao copio, mas pelomenos executou :D.

vlw

[~OwneR~ 8]

Tenta isso:

CopyFile('CHARS_T_BODY.rez','C:\Level Up! Games\Combat Arms\Game\CHARS_T_BODY.rez', true);

CopyFile('CHARS_T_HEAD.rez','C:\Level Up! Games\Combat Arms\Game\CHARS_T_HEAD.rez', true);

Só precisa colocar o arquivo na pasta do seu programa, falow~