Comment charger le contenu d'un fichier dans le presse-papiers ?

Utilisez ce programme f2clip. Exécutez-le à partir de la ligne de commande. Il copie le contenu du fichier dans le presse-papiers. Je l'utilise pour copier des fichiers texte dans un navigateur web pour un traitement ultérieur. Téléchargez-le à partir de http://smrz.xf.cz/f2clip.exe ou écrivez le vôtre à partir de cette source (c'est moche) :

 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.

Désolé.