Buscar

Cria Diretorio na pasta RAiz do sistema

Código

function IniciaDirArq(dirNome: string; arqNome: string): string;
// Cria diretorio na pasta raiz do sistema
begin
  pasta := GetPath(Application.ExeName) + '' + dirNome + '';
  CreateDirectory(PAnsiChar(pasta), nil);
  pasta := pasta + arqNome;
  AssignFile(arq, pasta);
  Rewrite(arq);
end;

   

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Windows
Adicionada dia: 16/06/09
Por: Denilson De Andrade
Visualizada: 3940 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009