function GetCurrentDir : string;
Description
The GetCurrentDir procedure returns a string containing the drive plus path name of the current directory.
Related commands
ChDir Change the working drive plus path for a specified drive
CreateDir Create a directory
GetDir Get the default directory (drive plus path) for a specified drive
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
ForceDirectories Create a new path of directories
Example code : Getting the current directory
var
dir : string;
begin
// Get the current directory
dir := GetCurrentDir;
ShowMessage('Current directory = '+dir);
end;
Show full unit code
Current directory = C:\Program Files\Borland\Delphi7\Projects