Function GetCurrentDir

Uses Unit SysUtils

A função GetCurrentDir retorna o nome do diretório atual.

Sintaxe da sua utilização:

GetCurrentDir;

Ex:

procedure TForm1.Button14Click(Sender: TObject);begin
       ShowMessage(GetCurrentDir);end;