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

#01102　かとちん        さん　RE:クリップボードにファイル名をコピー

#01106　ぜえた          さん　RE:クリップボードにファイル名をコピー




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

これ、常々便利に使ってます・・・
まだここには上がってないようですので上げときます。



-------------- ここから ----------------------
program SendToName;

uses
  ClipBrd,SysUtils;

{$R *.RES}
var Fp:TSearchRec;
    s:string;
begin
    // ファイル名をクリップボードにコピー。
    // その名前がフォルダの場合は後尾に'\'を付加する。
    s:=ParamStr(1);
    ClipBoard.AsText:=s;
    if 0<>FindFirst(s,faAnyFile,Fp) then Exit;
    if 0<>(Fp.Attr and faDirectory) then begin
        if AnsiLastChar(s)^<>'\' then s:=s+'\';
        ClipBoard.AsText:=s;
    end;
end.
----------------- ここまで。------------------

以上を、SendToName.dpr のファイルにして、コンパイルしてくだ
さい。

引数の文字列をクリップボードにコピーするだけ・・のプログラム
なんですが、こいつのショートカットを c:\windows\sendto フォ
ルダにコピーしておくと、ファイルの右クリック−＞送るで選択す
ると、ファイル名がクリップボードにコピーされます。
フォルダであれば、後尾に'\' が付きます。

ちなみに、コピーされるフルパス名は 8.3 形式です。

＃ ぢつは、Mes6 #31348 以降のツリーで思い出した（掘り出して
＃ きた？？）もんでした。
＃ ＞その節はありがとうございました。 瑠瓏 さん、らせん企画 
＃ さん。

ではでは。

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

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