Tips (1541)

Tip Bewertung (6):

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