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