Criar arquivos na mesma pasta

10/05/2003

1

Qual o codigo que uso para gravar e ler um arquivo TXT na mesma pasta
do programa?Tipo,onde quer que o usuario executar o programa,não precisara procurar o arquivo TXT,o programa criará sozinho o TXT na pasta aonde estiver o programa.


Responder

Posts

10/05/2003

Cruz

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:= ExtractFilePath(Application.ExeName)+´texto.txt´;
FileCreate(s)
end;


Responder