Diretório anterior

[fabidoo]

Seguinte, estou com um problema, preciso extrair os dados da minha base para um arquivo .txt, isso não é o problema, mas queria extrair para um diretório anterior.

Usei o ExtractFilePath para extrair na pasta do meu executável, mas quero extrair uma pasta antes, exemplo:

Executável:

C:\Arquivos de Programas\Delphi\Projeto

Quero extrair em:

C:\Arquivos de Programas\Delphi

O problema é que sempre que eu mudar o executável de local teria que recompilar, então queria saber se tem algum método para pegar o diretório anterior sem ter que mudar manualmente...

Obrigado desde já.

[Simon Viegas]

Seguinte, estou com um problema, preciso extrair os dados da minha base para um arquivo .txt, isso não é o problema, mas queria extrair para um diretório anterior.

Usei o ExtractFilePath para extrair na pasta do meu executável, mas quero extrair uma pasta antes, exemplo:

Executável:

C:\Arquivos de Programas\Delphi\Projeto

Quero extrair em:

C:\Arquivos de Programas\Delphi

O problema é que sempre que eu mudar o executável de local teria que recompilar, então queria saber se tem algum método para pegar o diretório anterior sem ter que mudar manualmente...

Obrigado desde já.

Olá, eu não tenho muito conhecimento em Delphi, mas posso te passar uma sugestão:

Como você já tem o "caminho absoluto", você poderia extrair o caminho da pasta anterior através dele. Ex.:

Copy(ExtractFileDir(Application.ExeName), 1, LastDelimiter('\', ExtractFileDir(Application.ExeName)));

Obs.: A sequência de comandos é autoexplicativa. Se tiver dúvidas, pesquise sobre cada comando (Copy e LastDelimitr).

No aguardo.

Abraços

[fabidoo]

Resolvido! Muito obrigado e desculpe-me a demora!

[DiF]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.