SmartPascal GetDir Procedure Get the default directory (drive plus path) for a specified drive System unit

procedure GetDir ( Drive : Byte; var Directory : string ) ;

Description The GetDir procedure stores in the passed parameter Directory string the drive plus path name of the default directory on the specified Drive.   Drive values :   0  = Default drive 1  = A: drive 2  = B: drive 3  = C: drive 4  = D: drive and so on.  Related commands ChDir Change the working drive plus path for a specified drive CreateDir Create a directory GetCurrentDir Get the current directory (drive plus directory) ForceDirectories Create a new path of directories MkDir Make a directory RemoveDir Remove a directory RmDir Remove a directory SelectDirectory Display a dialog to allow user selection of a directory SetCurrentDir Change the current directory		Example code : Getting the directory for the C: drive var   DirName : string; begin   GetDir(3, DirName);   // Store C: directory in the DirName variable   ShowMessage(DirName); end; Show full unit code    The following output is representative, and will necessarily vary    from PC to PC:       C:\Program Files\Borland\Delphi7\Projects