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

解決

グルー  2005-06-27 17:34:56  No: 15955  IP: 192.*.*.*

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

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

編集 削除
大豆くん  2005-06-27 18:32:52  No: 15956  IP: 192.*.*.*

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

編集 削除
グルー  2005-06-28 08:53:10  No: 15957  IP: 192.*.*.*

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

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

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

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

編集 削除
それは  2005-06-28 09:51:04  No: 15958  IP: 192.*.*.*

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

編集 削除
グルー  2005-06-28 10:03:04  No: 15959  IP: 192.*.*.*

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


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

編集 削除
てこ  2005-06-28 10:10:33  No: 15960  IP: 192.*.*.*

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

環境は WinXP + Delphi7.0 です。

編集 削除
グルー  2005-06-28 10:35:54  No: 15961  IP: 192.*.*.*

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

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

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

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

編集 削除