[[escafandra]]

Bueno, no se si entiendo bien. Para capturar sólo el path, convierte el nombre de archivo a path con ExtractFilePath().

Si sólo quieres capturar en un control:

// Procesar los mensajes de la aplicación
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
  // Procesar el mensaje  WM_DROPFILES, aquí o en otra función a parte...
  if(Msg.message == WM_DROPFILES){
      char archivo[MAX_PATH];
      int n = DragQueryFile((HDROP)Msg.wParam, 0, archivo, sizeof(archivo));
      if(n>0) Procesar(archivo); // Funcion que procesa el archivo
      DragFinish((HDROP)Msg.wParam);
      Handled = true;
   }
}

Como tu escribes la función Procesar(archivo), haces lo que quieras.
Mediante esa función, que puede ser miembro de tu ListBox, capturas el nombre del path.

También puedes filtrar el mensaje WM_DROPFILES, es decir en la parte del código que responde a éste del ejemplo de arribapuedes testar que tu puntero de ratón está en tu ListBox, por ejemplo.

TPoint Point;
::GetCursorPos(&Point);
HWND W = ::WindowFromPoint(Point);
if(W == MyListBox->Handle){
   // lo que quieras.......
}

Es decir:

// Procesar los mensajes de la aplicación
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
  // Procesar el mensaje  WM_DROPFILES, aquí o en otra función a parte...
  if(Msg.message == WM_DROPFILES){
      char archivo[MAX_PATH];
      int n = DragQueryFile((HDROP)Msg.wParam, 0, archivo, sizeof(archivo));
      if(n>0){
        TPoint Point;
        ::GetCursorPos(&Point);  
        HWND W = ::WindowFromPoint(Point);
        if(W == MyListBox->Handle){
           Procesar(archivo); // Funcion que procesa el archivo
        }         
      }
      DragFinish((HDROP)Msg.wParam);
      Handled = true;
   }
}

Es decir, tienes muchas formas para conseguir que ti ListBox "capture" ese path.

Espero haberte entendido y darte la solución a tu problema.

Saludos.