You can get the current working directory information by GetCurrentDir function. Following is the usage example: var m_curdir:string . . . m_curdir :=…