Movefile

[mariquito]

tenho esse projeto EXE que move o arquivo para a pasta de destino

MoveFile('C:\origem\Project1.exe','C:\destino\Project1.exe');

minha duvida é substituir esse 'C:\origem\Project1.exe' pelo diretorio que esse arquivo estar sendo executado (SALVO) para 'C:\destino\Project1.exe'

tipo MoveFile('comando onde o arquivo estar sendo executado(ditetorio)','C:\destino\Project1.exe');

[Churc]

tipo

MoveFile(ParamStr(0), 'C:\Destino\' + ExtractFileName(ParamStr(0)));

ParamStr retorna os paramêtros que são passados para a aplicação, no caso

o 0(zero) retorna o caminho onde está sendo executado...

Só tem um problema, você não vai conseguir mover o arquivo se ele está em

execução, você poderá copiá-lo mais não move-lo ou renomea-lo...

abs

[mariquito]

tipo

MoveFile(ParamStr(0), 'C:\Destino\' + ExtractFileName(ParamStr(0)));

ParamStr retorna os paramêtros que são passados para a aplicação, no caso

o 0(zero) retorna o caminho onde está sendo executado...

Só tem um problema, você não vai conseguir mover o arquivo se ele está em

execução, você poderá copiá-lo mais não move-lo ou renomea-lo...

abs

muito obrigado!

e para a pasta windows?

tipo c:\windows mais pode ser e:\windows qual comando uso para jogar para dentro do windows mesmo windows\?

[Churc]

Use uma função que retorne em qual pasta o Windows está instalado

Function GetWindowsDir: String;

var

chBuffer: array[0..MAX_PATH] of Char;

begin

GetWindowsDirectory(chBuffer, SizeOf(chBuffer));

Result := IncludeTrailingPathDelimiter(StrPas(chBuffer));

end;

MoveFile(ParamStr(0), GetWindowsDir + ExtractFileName(ParamStr(0)));

abs

[mariquito]

Use uma função que retorne em qual pasta o Windows está instalado

Function GetWindowsDir: String;

var

chBuffer: array[0..MAX_PATH] of Char;

begin

GetWindowsDirectory(chBuffer, SizeOf(chBuffer));

Result := IncludeTrailingPathDelimiter(StrPas(chBuffer));

end;

MoveFile(ParamStr(0), GetWindowsDir + ExtractFileName(ParamStr(0)));

abs

Muito Obrigado!! vo testar

[Churc]

Opa

Mas como mencionei você não vai conseguir mover o arquivo pois ele está

em execução, então pra isso use um CopyFile ao invés de MoveFile

CopyFile(PChar(ParamStr(0)), PChar(GetWindowsDir + ExtractFileName(ParamStr(0))), False);

[HugoTessaro]

Excelente! Porem esse código copia apenas o arquivo que está sendo executado... sera que teria como fazer para que copie juntamente com o programa mais arquivos que estão na mesma pasta? mesmo eu especificando seu nome...

[Churc]

Excelente! Porem esse código copia apenas o arquivo que está sendo executado... sera que teria como fazer para que copie juntamente com o programa mais arquivos que estão na mesma pasta? mesmo eu especificando seu nome...

Opa

Tem sim, basta voce passar o caminho

CopyFile(PChar('Caminho do arquivo de origem'), PChar('Caminho do arquivo de destino')), False);

abracos