もちろん、プログラムのインストール後に、プログラムの実行可能ファイルをクリックし、右クリックして [デスクトップ ショートカットの追加] を選択することで、ショートカットを追加したい場合があります。プログラミングで実装するにはどうすればよいでしょうか?これを実現するために API 関数を呼び出すことができます。ソース コードは次のとおりです。
プライベート宣言関数 fCreateShellLink Lib vb5stkit.DLL (ByVal _
文字列としての lpstrFolderName、ByVal 文字列としての lpstrLinkName、ByVal _
文字列としての lpstrLinkPath、文字列としての ByVal lpstrLinkArgs) 長さとして
プライベートサブ MakeShortCuts()
Dim lReturn As Long
MyPath を文字列として暗くする
MyName を文字列として暗くする
MyPath = アプリのパス
MyName = アプリ.EXE名
'デスクトップに追加
lReturn = fCreateShellLink(../../デスクトップ, _
ネットタイマーへのショートカット、MyPath & / & MyName、)
'スタートアップグループに追加
lReturn = fCreateShellLink(/start, ネットタイマーへのショートカット, _
MyPath & / & MyName、)
エンドサブ
とてもシンプルですよね？