제가 전에 썼던 방법인데요
TStrings의 Delimit를 이용한 방법입니다.


void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString ApplicationPath = "C:\\windows\\systems\\info\\test.bat";  // 테스트를 위해서..
TStrings *Path = new TStringList;  // 스트링리스트를 만들구요
AnsiString CurrentDrive;
AnsiString BaseDirectory;
AnsiString MSG;

        Path->Delimiter = '\\';   // 분리자는 '\' 이것을 사용합니다. C언어인관계로 '\\'
        Path->DelimitedText = ApplicationPath; // 분리할 문자열을 넣으시구요
       // 몇개가 분리되었는지는 Path->Count를 이용하여 질의할 수 있습니다.
        CurrentDrive = Path->Strings[0]; // 첫번째 분리자 까지의 문자열
        BaseDirectory = Path->Strings[1]; // 두번째 분리자 까지의 문자열

        MSG = "작업 드라이브 : "+CurrentDrive+"\n"+"베이스 디렉토리 : "+BaseDirectory;

        ShowMessage(MSG); // 화면에 표시...

}
//---------------------------------------------------------------------------


빌더초자 님이 쓰신 글 :
: 현재 실행 중인 프로그램의 디렉토리 정보가..
: 다음과 같다면..
: D:\BuilderTest\debug\test1\app
:
: 최상단의 해당하는 D:\와
: D:\BuilderTest를 어떻게 가져오죠?
:
:
: 고수님들 좀 알려주세요!!!