GetCurDir
What: string function
File:
Layer: 1
Format: result = GetCurDir( device )
Platforms: Pascal
This function returns the current directory for the given device. This is only defined
if the version of Pascal being used does not provide the function.