Could Try this one? http://www.freepascal.org/docs-html/rtl/sysutils/createdir.html ________________________________ William de Oliveira Ferreira Bacharel em Sistemas de Informação
2011/3/15 silvioprog <[email protected]> > 2011/3/15 Peter Williams <[email protected]>: > (...) > var > Str1 : string; > begin > Str1 := GetAppConfigDir(False); > if not DirectoryExists(Str1) then > ForceDirectory(Str1); > (...) > > Good luck. ;) > > -- > Silvio Clécio > ================================================= > Blog - silvioprog.com.br > Twitter - twitter.com/silvioprog > LazSolutions - code.google.com/p/lazsolutions > Lazarus-BR <http://code.google.com/p/lazsolutionsLazarus-BR> - > http://groups.google.com.br/group/lazarus-br?hl=pt-BR > ================================================= > -- > _______________________________________________ > Lazarus mailing list > [email protected] > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
