كيفية إنشاء اختصارات للبرامج

في بعض الأحيان، نريد إضافة اختصار لبرنامجنا. بالطبع، بعد تثبيت البرنامج، يمكننا القيام بذلك عن طريق النقر على الملف القابل للتنفيذ لبرنامجنا، والنقر بزر الماوس الأيمن واختيار إضافة اختصار لسطح المكتب، لكن في بعض الأحيان نريد ذلك تلقائيًا تنفيذها من خلال البرمجة ماذا تفعل؟ يمكننا استدعاء وظائف API لتحقيق ذلك، ويرد أدناه الكود المصدري:

وظيفة الإعلان الخاص fCreateShellLink Lib vb5stkit.DLL (ByVal _

lpstrFolderName كسلسلة، ByVal lpstrLinkName كسلسلة، ByVal _

lpstrLinkPath كسلسلة، ByVal lpstrLinkArgs كسلسلة) طالما

MakeShortCuts الفرعية الخاصة ()

خافت lالعودة طالما

تعتيم MyPath كسلسلة

خافت MyName كسلسلة

MyPath = App.Path

MyName = App.EXEName

"أضف إلى سطح المكتب."

lReturn = fCreateShellLink(../../Desktop, _

اختصار إلى Net Timer وMyPath و/& MyName، )

'أضف إلى مجموعة بدء التشغيل

lReturn = fCreateShellLink(/start, Shortcut to Net Timer, _

MyPath و/& MyName، )

نهاية الفرعية

ماذا عن الأمر بسيط جدًا، أليس كذلك؟