saber ruta al presionar Ctrl +C

[DOS994]

Este es un codigo que lo que hace es buscar la direccion al copiar pero esta en Delphi. Por favor como seria en C++.

Código Delphi [-]
procedure LeerArchivosPortapapeles( Lista: TListBox );
var
  HPortapapeles: THandle;  // Handle del portapapeles
  iNumArc, i: Integer;     // Nº de archivos
  Archivo: array [0..MAX_PATH - 1] of char;
begin
  if ClipBoard.HasFormat( CF_HDROP ) then
  begin
    HPortapapeles := ClipBoard.GetAsHandle( CF_HDROP );
    iNumArc := DragQueryFile( HPortapapeles, $FFFFFFFF, nil, 0);
    for i := 0 to iNumArc - 1 do
    begin
      DragQueryFile( HPortapapeles, i, @Archivo, MAX_PATH );
      Lista.Items.Add( Archivo );
    end;

[beginner01]

Hola.

Prueba asi.

#include <Clipbrd.hpp>

//---------------------------------------------------------------------------
void _fastcall LeerArchivosPortapapeles(TListBox *Lista)
{
  //THandle HPortapapeles; // Handle del portapapeles
  HDROP HPortapapeles;

  int iNumArc; // Nº de archivos

  //: array [0..MAX_PATH - 1] of char;
  wchar_t Archivo[MAX_PATH];
  TClipboard *ClipB = Clipboard();


  if ( ClipB -> HasFormat( CF_HDROP ) )
  {
  		Lista->Clear(); /*Prueba*/

		HPortapapeles = (HDROP)ClipB -> GetAsHandle( CF_HDROP );

		iNumArc = DragQueryFile(HPortapapeles, 0xFFFFFFFF/*$FFFFFFFF*/, NULL, NULL);

		for (int i = 0 ;i < iNumArc; i++)
		{

		  DragQueryFile( HPortapapeles, i, Archivo/*@Archivo*/, MAX_PATH );
		  Lista->Items->Add( Archivo );
		}
  }
}

[ecfisa]

Hola.

Otra opción similar pero prescindiendo de la VCL:

int FilesInClipboard(TListBox *LB)
{
  HDROP hDrop;
  int cch, i, iFile=0;
  char lpszFile[MAX_PATH];

  OpenClipboard(NULL);
  if ((hDrop = GetClipboardData(CF_HDROP))!= NULL) {
     iFile = DragQueryFile(hDrop, 0xFFFFFFFF, NULL, NULL);
     for(i=0; i<iFile; i++) {
       DragQueryFile(hDrop, i, lpszFile, sizeof(lpszFile));
       LB->Items->Add(lpszFile);
     }
  }
  CloseClipboard();
  return iFile;
}

Saludos.