TOP > カテゴリ > Visual Basic >

デスクトップにショートカットを作成する

デスクトップにショートカットを作成するサンプルです。

サンプルの実行画面

ソースコード

[fCreateShellLink.frm]

'ショートカットを作成する

  'lpstrFolderName:ディレクトリ
  'lpstrLinkName:アイコンの名前
  'lpstrLinkPath:ショートカットの元になるファイルのフルパスを指定
  'lpstrLinkArguments:コマンドライン
  
  
'*このサンプルはVB5.0用です。4.0の場合はSTKIT432.DLLをつかいます。
'*VB5STKIT.DLLファイルがその他のフォルダにある場合はパスを変更してください
' >>>VB5STKIT.DLLがSystemフォルダにある場合は、DLL名だけでOKです。
Private Declare Function fCreateShellLink Lib "C:\Program Files\DevStudio\VB\setupkit\kitfil32\VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long


Private Sub Command1_Click()

Call fCreateShellLink("..\..\デスクトップ", "calc.exe", "C:\Windows\Calc.exe", "")

End Sub

ソースコード一式のダウンロード

vbapi_fcreateshelllink.zip 1.01 KB (1,040 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月04日
記事NO:00339