[copyfile]porque?

[Pirafael 0]

Ja tentei de tudo, mais ele nao quer copiar, e o arquivo esta livre, sem nenhum bloqueio para copiar/editar etc =s

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

dir: String;

str: TStringList;

i: integer;

begin

if ProcessoExiste ('grandchase.exe') then

begin

Timer1.enabled:=False;

Form1.Hide;

Form2.Show;

str:= Explode(GetProcessPath(GetPID('grandchase.exe')), 'grandchase.exe');

dir:= ExtractFilePath(ParamStr(0))+'mod\ai.kom';

CopyFile(PChar(ExtractFilePath(ParamStr(0))+'mod\ai.kom'), PChar(str.Text+'Stage\AI\ai.kom'), True)

end

else

begin

end;

end;

[darkfenyx3 7]

Será que é por causa disso?

CopyFile(PChar(ExtractFilePath(ParamStr(0))+'mod\a i.kom'), PChar(str.Text+'Stage\AI\ai.kom'), True);

[Mestre_Vator 0]

Porque você é um noob.

Simples.

 

Quanto ao tópico,tem um espaço no nome do arquivo.

[Pirafael 0]

n , pq no delphi ta sem espaço no ai.kom, é o code que deu bug msm

 

o jeito é ignorar, mais n tem um espaço n

[edoO~' 1]

substitua copyfile por

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

se quiser..

nao vou te falar como funciona

se vira!

askposakopas

[darkfenyx3 7]

Tente o seguinte:

 

str.Text := GetProcessPath(GetPID('grandchase.exe'));

SetLength(str.Text,Length(str.Text)-14);

dir := ExtractFilePath(ParamStr(0))+'mod\';

CopyFile(PChar(dir+'ai.kom'), PChar(str.Text+'Stage\AI\ai.kom'), False);

 

@Edit

Essa porcaria de code PHP ta bugado... ¬¬'

Ta removendo coisas que eu adiciono.

[Pirafael 0]

=c

 

 

 

 

[edoO~' 1]

que isso em dark

ta afim de virar geek agora?

vou até fazer uma plaquinha pra vc

huehuaea

 

é isso ae cara

o que o dark disse tbm funciona

o que eu disse tbm

copyfile tem mtos erros

:(

[Pirafael 0]

deu erro na:

SetLength(str.Text,Length(str.Text)-14);

falo

constant object cannot be passed as var parameter

[darkfenyx3 7]

Não, não tem, basta saber usar. ^^

[Pirafael 0]

deu erro na :

SetLength(str.Text,Length(str.Text)-14);

falou

constant object cannot be passed as var parameter

[edoO~' 1]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[darkfenyx3 7]

Ainda não entendo para que você quer usar TStringList para nada, use String e faça como abaixo:

 

str := GetProcessPath(GetPID('grandchase.exe'));

SetLength(str,Length(str)-14);

dir := ExtractFilePath(ParamStr(0))+'mod\';

CopyFile(PChar(dir+'ai.kom'), PChar(str+'Stage\AI\ai.kom'), False);

[Pirafael 0]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

ainda da erro =l no SetLEngth, agora diz:

incompatible types

[luxfer 0]

TEdit não é uma matriz!

SetLength serve para alterar a quantidade de valores de uma matriz...

Em 5 minutos você descobre isso no Google.

[Pirafael 0]

Tentei até:

str.Text:=GetProcessPath(GetPID('grandchase.exe'));

tes:=Explode(str.Text, 'grandchase.exe')

CopyFile(PChar(ExtractFilePath(ParamStr(0))+'mod\ai.kom'), PChar(str.Text+'Stage\AI\ai.kom'), True);

mais a erro no cpyfile n sei pq

[edoO~' 1]

como eu disse

tira o copyfile

e usa o código que eu fiz

nessa segunda página

ele já está pronto..

só da umas reparadinhas que vc consegue

 

-.-

[Pirafael 0]

cria uma string dados, precisa declarar algo na uses?

[edoO~' 1]

nao!

apenas essa variável

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[darkfenyx3 7]

Faça como eu te disse:

 

str := GetProcessPath(GetPID('grandchase.exe'));

SetLength(str,Length(str)-14);

dir := ExtractFilePath(ParamStr(0))+'mod\';

CopyFile(PChar(dir+'ai.kom'), PChar(str+'Stage\AI\ai.kom'), False);

 

Não vejo problemas..

 

OBS: Não faço idéia de onde vem ParamStr(0), mas fazer o que... ^^