Mega Code Archive

 

Categories / Delphi / Files

 

Get-set the current directory

// GetCurrentDir returns the fully qualified name of the current directory. procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := GetCurrentDir; end; // The SetCurrentDir function sets the current directory: procedure TForm1.Button1Click(Sender: TObject); begin SetCurrentDir('c:\windows'); end;