Aktuelles Verzeichniss ermitteln

//---------------------------------------------------------------------------

#include <vcl.h>
#include <direct.h> // for getcwd
#include <stdlib.h>// for MAX_PATH
#include <iostream>
#pragma hdrstop

using namespace std;

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

String create_directory = "";
const char* new_directory = "";
int handle1 = 0;
const char* org_file = "";
const char* new_file = "";
int handle2 = 0;

   // _MAX_PATH is the maximum length allowed for a path
   char CurrentPath[_MAX_PATH];

//---------------------------------------------------------------------------
/* USER FUNCTION *//* USER FUNCTION *//* USER FUNCTION *//* USER FUNCTION */
void GetCurrentPath(char* buffer)
{
getcwd(buffer, _MAX_PATH);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   Form1->Left = 0;
   Form1->Top = 0;

   // use the function to get the path
   GetCurrentPath(CurrentPath);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   // Das ausgewählte Verzeichniss wird in die Variable geladen...
   create_directory = DirectoryListBox1->Directory;

   // Dem ausgewählten Verzeichniss wird noch ein Anhang beigefügt...
   Edit1->Text = create_directory + "/Nano";

   // Das neue Verzeichniss wird nun erstellt...
   new_directory = Edit1->Text.c_str();
   handle1 = CreateDirectory(new_directory, SECURITY_ANONYMOUS);
   if(!handle1)
   {
      // Bei nicht gelungener Operation
      Label1->Caption = "Das erstellen des Verzeichnisses ist fehlgeschlagen!";
   }
   else
   {
      // Bei gelungener Operation
      Label1->Caption = "Das erstellen des Verzeichnisses war erfolgreich!";
   }

   // Die Dateien können nun ins neue Verzeichniss installiert werden...
   
   new_file = Edit1->Text.c_str();

   Edit1->Text = CurrentPath;
   
   Label2->Caption = CurrentPath;
   Edit1->Text = Edit1->Text + "/Nano.exe";

   org_file = Edit1->Text.c_str();

   handle2 = CopyFile(org_file, new_file, 1);
   if(!handle2)
   {
      // Bei nicht gelungener Installation
      Edit1->Text = new_file;
      Label1->Caption = "Die Installation ist fehlgeschlagen!";
   }
   else
   {
      // Bei gelungener Installation
      Label1->Caption = "Die Installation war erfolgreich!";
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1Click(TObject *Sender)
{
   Label1->Caption = "Label1";        
}
//---------------------------------------------------------------------------