ショートカットを作成するには?(Ⅱ) (ID:79812)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, dwItem1 As Any, dwItem2 As Any) Private Const SHCNE_CREATE As Long = 3 Private Const SHCNF_PATH As Long = 2 Private Const SHCNE_ALLEVENTS As Long = &H7FFFFFFF '--------------------------------------------------------------- Private Sub cmdCreateLink_Click() '--------------------------------------------------------------- Dim sLnk As cShellLink '--------------------------------------------------------------- Set sLnk = New cShellLink sLnk.CreateShellLink txtLinkName.Text, _ txtExeName.Text, _ txtWorkDir.Text, _ txtCmdArgs.Text, _ txtIconFile.Text, _ CLng(txtIconIndex.Text), _ CLng(txtShowCmd.Text) Set sLnk = Nothing '--------------------------------------------------------------- SHChangeNotify SHCNE_CREATE, SHCNF_PATH, txtLinkName.Text, ByVal &H0 End Sub '--------------------------------------------------------------- 関数が機能しているのかどうかもわかりませんでした。アイコンも変化しませんでした…。Byval をつけたりつけなかったり、wEventId 変えたりと色々試したのですが、力不足でした。「魔界の仮面弁士」さんのいう >SHChangeNotifyを呼び出してみてください。 は、上のコードでは、実現できてませんよね。すみません…ご教授お願いします。