Je zou dit kunnen bereiken door relatieve paden te gebruiken i.p.v. absolute, dus geen OpenSomething('c:\data'), maar OpenSomething('Data'), Data is dan een subdirectory onder je programma. Je kunt dit ook weer naar een volledig path vertalen door
Code:
ExtractFileDir(Application.ExeName) + '\Data'
Als je programma dan b.v. in [it]c:\Program Files\NLDelphi\SomeProg[/it] staat verwijst de bovenstaande code naar [it]c:\Program Files\NLDelphi\SomeProg\Data[/it].
Als je er nu ook voor zorgt dat je installatieprocedure altijd alles in subdirectories van je programma installeert kun je er dus altijd bij.
Bookmarks