...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;

printed from
www.swissdelphicenter.ch
developers knowledge base