Utiliza este programa f2clip. Ejecútelo desde la línea de comando. Copia el contenido del archivo en el portapapeles. Lo uso para copiar archivos de texto en el navegador web para su posterior procesamiento. Descárguelo de http://smrz.xf.cz/f2clip.exe
o escriba el suyo desde esta fuente (es feo):
program f2clip;
{$APPTYPE CONSOLE}
uses
SysUtils,
clipbrd;
var i,r:integer;
s:string;
f:file;
buf:array[0..1024*1024-1] of byte;
data:string;
d:pointer;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
if (paramcount=0) then begin
writeln('parameters: f2clip filename.txt');
end else begin
write('parameter count: ');
writeln(paramcount);
for i:=1 to paramcount do begin
s:=paramstr(i);
writeln('file: ',s);
assignfile(f,s);
reset(f,1);
BlockRead(f,buf,1024*1024,r);
writeln('size: ',r);
buf[r]:=0;
d:=@(buf[0]);
data:=PAnsiChar(d);
Clipboard.AsText := data;
close(f);
end;
end;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
Lo siento.