ショートカットの作成について

解決

グルー 2005-06-28 02:34:56 No: 15955

ショートカットを作成する方法がわかりません。
教えてください。

実行ファイル：[D:\Test\Test.exe]
引  数      ：[Sample]
作成場所    ：[D:\Test]
作業場所    ：[D:\Test]
アイコン    ：[D:\Test\Test.exeと同じ]

大豆くん 2005-06-28 03:32:52 No: 15956

http://forum.nifty.com/fdelphi/samples/00100.html

グルー 2005-06-28 17:53:10 No: 15957

どうもです。
早速試してみました。
デフォルトでデスクトップに作成はできるものの
以下のように変更したのですが・・

>wFileName := szDirectory + '\' + ExtractFileName(szFileName) + 'へのショートカット.lnk';

この部分を
wFileName := 'D:\Test\Test.lnk';
に変更してみたけど。

ショートカットができませんでした。

それは 2005-06-28 18:51:04 No: 15958

サンプルに問題がないのなら、自前で変更した部分に問題があるということでしょう。

グルー 2005-06-28 19:03:04 No: 15959

要するに、デスクトップなどの指定されている
フォルダ以外にはショートカットの作成ができないようですね。

デスクとぷに作成できるのであれば
デスクトップに一度作成してから目的のフォルダにコピーしてから
デスクトップ上のショートカットを削除するしか
手はないってことなのでしょうか？
しっくりこないなぁ・・・

てこ 2005-06-28 19:10:33 No: 15960

デスクトップ以外の既存のフォルダにも作成できましたよ。
ご指定の「D:\Test」というフォルダは存在するのですか？

環境は WinXP + Delphi7.0 です。

グルー 2005-06-28 19:35:54 No: 15961

みなさん、すみません。
私のミスでした。

変更箇所  wFileName := 'D:\Test\Test.lnk';
でしたが、次の行で以下のように変更していました。
PFile.Save(PWChar('D:\Test\Test.lnk'),False);
この部分を
PFile.Save(PWChar('wFileName),False);
にすると作成できました。

残りの課題は
＞引数：[Sample]
＞アイコン：[D:\Test\Test.exeと同じ]
なのですが、

SetArguments を追加すれば
できるようになりました。
みなさん、たいへんお騒がせしてすみませんでした。