Ir para conteúdo
Fórum Script Brasil
  • 0

Movefile


mariquito

Pergunta

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');

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0
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\?

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0

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);

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...