Código
arq: TextFile;
pasta: String;
function IniciaDirArq(dirNome: string; arqNome: string): string;
begin
pasta := GetPath(Application.ExeName) + '' + dirNome + '';
CreateDirectory(PAnsiChar(pasta), nil);
pasta := pasta + arqNome;
AssignFile(arq, pasta);
Rewrite(arq);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009