วิธีสร้างทางลัดสำหรับโปรแกรม

บางครั้งเราต้องการเพิ่มทางลัดให้กับโปรแกรมของเรา แน่นอนว่าหลังจากติดตั้งโปรแกรมแล้ว เราสามารถทำได้โดยคลิกที่ไฟล์ปฏิบัติการของโปรแกรมของเรา คลิกขวา และเลือกเพิ่มทางลัดบนเดสก์ท็อป นำไปปฏิบัติผ่านการเขียนโปรแกรมต้องทำอย่างไร? เราสามารถเรียกใช้ฟังก์ชัน API เพื่อให้บรรลุสิ่งนี้ได้ ซอร์สโค้ดได้รับด้านล่าง:

ฟังก์ชันการประกาศส่วนตัว fCreateShellLink Lib vb5stkit.DLL (ByVal _

lpstrFolderName เป็นสตริง ByVal lpstrLinkName เป็นสตริง ByVal _

lpstrLinkPath เป็นสตริง ByVal lpstrLinkArgs เป็นสตริง) ตราบใดที่

MakeShortCuts ย่อยส่วนตัว ()

Dim lกลับมาตราบเท่าที่

Dim MyPath เป็นสตริง

หรี่ MyName เป็นสตริง

MyPath = App.Path

MyName = App.EXEName

'เพิ่มไปยังเดสก์ท็อป

lReturn = fCreateShellLink(../../เดสก์ท็อป, _

ทางลัดไปยัง Net Timer, MyPath & / & MyName, )

'เพิ่มในกลุ่มเริ่มต้น

lReturn = fCreateShellLink (/ start, ทางลัดไปยัง Net Timer, _

MyPath & / & ชื่อของฉัน )

จบหมวดย่อย

มันเป็นเรื่องง่ายมากใช่มั้ย?