comtest1.hsp

sample\comobj\comtest1.hsp » Plain Format

; シェルリンクオブジェクトのクラスID
#define CLSID_ShellLink   "{00021401-0000-0000-C000-000000000046}"
; IShellLink インターフェースのインターフェースID
#define IID_IShellLinkA   "{000214EE-0000-0000-C000-000000000046}"
; IPersistFile インターフェースのインターフェース ID
#define IID_IPersistFile  "{0000010b-0000-0000-C000-000000000046}"


#usecom IShellLinkA IID_IShellLinkA CLSID_ShellLink
#comfunc IShellLink_SetPath 20 str

#usecom IPersistFile IID_IPersistFile
#comfunc IPersistFile_Save 6 wstr,int

newcom slink, CLSID_ShellLink   ; デフォルトでは IUnlnown を取得
                                ; (第3パラメータで明示することも可)
                                ; (automation object 以外では無意味?)

IShellLink_SetPath slink, dirinfo(1)+"\\hsp3.exe"
IPersistFile_Save  slink, dirinfo(0)+"\\shortcut.lnk", 1

mes "ショートカットを作成しました。"

delcom slink

stop