ใช้โปรแกรมนี้ f2clip เรียกใช้จากบรรทัดคำสั่ง มันคัดลอกเนื้อหาไฟล์ลงในคลิปบอร์ด ฉันใช้เพื่อคัดลอกไฟล์ข้อความไปยังเว็บเบราว์เซอร์เพื่อการประมวลผลเพิ่มเติม ดาวน์โหลดได้จากhttp://smrz.xf.cz/f2clip.exe
หรือเขียนของคุณเองจากแหล่งนี้ (มันน่าเกลียด):
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.
ขอโทษ