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