🚀 go-pugleaf

"Emmanuel" <emmanuel@erphk.com> wrote:
>I want to write a VCL,which can know the file location and name of the
>project
>and know the file location and name of the Unit File
>
>Is it possible?
>want is the Command to handle this?
>
>Thank you
>Emmanuel

Look at my example, it's finding the path of the project and 
then load file from one of it's sub-directories, the command
you need is ExtractFileDir().

  TStringList *PalleteData = NULL, *ListOfPalletes = NULL;
  ListOfPalletes = new TStringList;
  ListOfPalletes->Clear();

  FullPathStr = ExtractFileDir( Application->ExeName );
  strcpy( FullPath, FullPathStr.c_str() );
  strcat( FullPath, "\\Palletes\\PalleteList.dat" );
  ListOfPalletes->LoadFromFile ( FullPath );
  Line = 0;

  for ( Index = 0; Index < ListOfPalletes->Count; Index++ )
    strcpy( Str, ListOfPalletes->Strings[Index].c_str() );

  if ( ListOfPalletes )
    delete ListOfPalletes;


Ramy