Mega Code Archive

 

Categories / Delphi / Procedures

 

Getdir - 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