Salvamento De Arquivo Texto

[Arnaldo Cruz]

Na abertura do sistema o ACBr gera o arquivo MD5 e grava e informa o local da gravação

 

 

 

Na maquina de desevolvimento ele informa que gravou em  C:\PastadoExecutavel\ArquivoMD5.txt

 

porem grava em  C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\bin

 

Nas maquinas cliente ele informa que gravou em  C:\PastadoExecutavel\ArquivoMD5.txt

 

porem ele grava em C:\Users\cliente\Desktop

 

 

para os arquivos de abertura de movimento 286338BR00000021665512032014.txt a mesma coisa

 

No Cliente a tela do computador ta toda poluida com os arquivos txt um arquivo de movimento por dia .

 

Alguem sabe como f azer para que ele grave realmente na pasta do executavel e não creie icone de atalho na area de trabalho ?

 

 

na abertuta coloquei  >>> ACBrPAF.Path := gsAppPath ;

 

la no ACBRPaf

 

function TACBrPAF.SaveFileTXT_N(Arquivo: String): Boolean;

var
  txtFile: TextFile;
  PAF_MD5 : String ;
  iFor: Integer;

begin

      Result := True;
     fPath := gsAppPath ;

end;

 

mesmo assim continua salvando no desktop

 

Obrigado

Editado 15 Março, 2014 por Arnaldo Cruz

[Régys Silveira]

A única explicação é que você não está setando o path corretamente, porque esse componente é utilizado por dezenas de usuários e ninguém nunca reportou problema, por favor, estude o demo do componente e não é necessário nenhuma alteração no componente.

[EMBarbosa]

na abertuta coloquei  >>> ACBrPAF.Path := gsAppPath ;

 

O que esse código faz?