!************************************** ! Name: GetCurrentDir ! Description:The GetCurrentDir function will return a string which contains the name of the current directory. ! By: Anonymous (from psc cd) ! ! ! Inputs:None ! ! Returns:None ! !Assumes:None ! !Side Effects:None !************************************** procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := GetCurrentDir; end;