Mega Code Archive

 

Categories / Delphi / Files

 

Getset the current directory

Title: 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;