इस कार्यक्रम का उपयोग करें 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.
माफ़ करना।