Ver Mensaje Individual
  #6  
Antiguo 18-03-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por scaballero Ver Mensaje
necesito saber como pegar algo que ya esté copiado en en el portapapeles de windows en un directorio
Si hablas de un directorio, entonces supongo que te refieres a copiar los archivos del portapapeles.

En principio, el siguiente procedimiento te devuelve una lista de los nombres (incluyendo la ruta) de los archivos que estén en el portapapeles:

Código Delphi [-]
procedure GetFilesFromClipboard(Files: TStrings);
var
    Drop: Cardinal;
    Count, I: Integer;
    Buffer: PChar;
    BufferSize: Integer;

begin
    (* Vemos si hay archivos en el portapapeles *)
    if Clipboard.HasFormat(CF_HDROP) then
    begin
        (* Obtenemos una referencia a la estructura *)
        Drop := Clipboard.GetAsHandle(CF_HDROP);

        (* Obtenemos el número de archivos *)
        Count := DragQueryFile(Drop, $FFFFFFFF, nil, 0);

        (* Procesamos cada archivo *)
        for I := 0 to Count - 1 do
        begin
            (* Obtenemos la longitud del nombre de archivo *)
            BufferSize := DragQueryFile(Drop, I, nil, 0) + 1;

            (* Asignamos memoria para recibir la cadena *)
            GetMem(Buffer, BufferSize);

            try
                (* Obtenemos el nombre de archivo *)
                DragQueryFile(Drop, I, Buffer, BufferSize);

                (* Agregamos el archivo a la lista *)
                Files.Add(Buffer);
            finally
                FreeMem(Buffer);
            end;
        end;
    end;
end;

Por ejemplo,

Código Delphi [-]
GetFilesFromClipboard(Memo1.Lines);

te pondría la lista en un Memo. El punto es que, teniendo ya la lista de nombres de archivos, puedes ya copiarlos uno a uno con la función CopyFile.

// Saludos
Responder Con Cita