用易語言創建快捷方式

使用F7編譯 然後制作壹個 解壓程序 打包源文件 EXE 以及支持庫 + 圖標 。解壓的過程中應該是 選擇已打包的圖標為創建的快捷方式圖標~

.版本 2

.子程序 系統_創建快捷方式, 邏輯型, 公開

.參數 lnk名稱, 文本型

.參數 工作目錄, 文本型, 可空

.參數 指向目標, 文本型

.參數 圖標文件, 文本型, 可空

.參數 運行方式, 整數型, 可空, 1,常規方式，3,最大化，7,最小化

.參數 備註, 文本型, 可空

.參數 參數文本, 文本型, 可空

.參數 快捷鍵, 文本型, 可空

.局部變量 vbscrip, 對象

.局部變量 b, 對象

.如果真 (vbscrip.創建 (“WshShell”, “wshom.ocx”))

vbscrip ＝ vbscrip.對象型方法 (“CreateShortcut”, lnk名稱)

.如果真 (vbscrip.是否為空 ())

返回 (假)

.如果真結束

.如果真 (vbscrip.寫屬性 (“TargetPath”, 指向目標))

vbscrip.寫屬性 (“WorkingDirectory”, 工作目錄)

vbscrip.寫屬性 (“IconLocation”, 選擇 (是否為空 (圖標文件), 指向目標 ＋ “,0”, 圖標文件))

vbscrip.寫屬性 (“WindowStyle”, 運行方式)

vbscrip.寫屬性 (“Description”, 備註)

vbscrip.寫屬性 (“Arguments”, 參數文本)

vbscrip.寫屬性 (“Hotkey”, 快捷鍵)

vbscrip ＝ vbscrip.對象型方法 (“Save”, )

返回 (真)

.如果真結束

參考壹下我寫的這 對象方式寫的 創建快捷方式！

上一篇:社旗縣關於啟用場所碼系統的通知（社旗縣便民服務大廳）

下一篇:Okhttp教程源代碼