Pegar imagen desde el Portapapeles (Clipboard)

[[gluglu]]

Estoy investigando.

Creo que queda claro que cuando elijo algo en el explorador de windows y lo copio al portapapeles, no estoy copiando un elemento del tipo BMP o JPG.

Acabo de encontrar esto para averiguar los nombres de los ficheros que haya seleccionado en el explorador y haya copiado al portapapeles. Creo que los tiros van por ahí.

Código Delphi [-]
var
   f: THandle;
   buffer: Array [0..MAX_PATH] of Char;
   i, numFiles: Integer;
begin
   Clipboard.Open;
   try
     f:= Clipboard.GetAsHandle( CF_HDROP ) ;
     If f <> 0 Then Begin
       numFiles := DragQueryFile( f, $FFFFFFFF, nil, 0 ) ;
       memo1.Clear;
       for i:= 0 to numfiles - 1 do begin
         buffer[0] := #0;
         DragQueryFile( f, i, buffer, sizeof(buffer)) ;
         memo1.lines.add( buffer ) ;
       end;
     end;
   finally
     Clipboard.close;
   end;
end;