この発言に対し以下のコメントが寄せられています

#01107　ぜえた          さん　RE:クリップボードにテキストファイルをコ




おはようさん。わいわいです。

前の発言と、ClipBoard 繋がりです。
ちょとしたツール第２弾という事で。

 

------------- ここから -----------------
program SendToText;

uses
  ClipBrd,Classes;

{$R *.RES}
var
    Txt:TStringList;
begin
    Txt:=TStringList.Create;
    try
    try
        Txt.LoadFromFile(ParamStr(1));
        ClipBoard.AsText:=Txt.Text;
    finally
        Txt.free;
    end;
    except
    end;
end.
---------------- ここまで。----------------

これも、SendToText.dpr と言うファイルにしてコンパイルしてく
ださい。

これまた同様にして、ショートカットを c:\windows\sendto フォ
ルダに入れておくことで、テキストファイルの「送る」で、ファイ
ル内容をクリップボードにコピーできます。

でも、こんだけのプログラムでも、２９０Ｋにもなるんですね。
　　　＞ Delphi5

ではでは。

Original document by わいわい        氏 ID:(QZC10252)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。