Como pegar algo que esté en el portapapeles

[roman]

Empezado por scaballero

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