كيف تنشئ اختصارات لبرنامجك..

السلام عليكم

هذه طريقة سهلة و بسيطة لعمل الاختصارات لبرنامجك و بدون أي أشياء خارجة عن الويندوز..

أولا المكتبة المستخدمة هي: IWshRuntimeLibrary

لإضافتها اذهب إلى Add Refrence ثم COM و اختر Windows Scripting Host

ثم يجب أن نعرف المتغيرات المطلوبة:

في حدث Form_Load أو أي حدث تريده:

[

Dim wshshell As New IWshRuntimeLibrary.WshShell
Dim desktop_PTH As String = CType(wshshell.SpecialFolders.Item("Desktop"), String
Dim shortcut_file As IWshRuntimeLibrary.IWshShortcut

في السطر الأول عرفنا المتغير الذي سنستخدمه بشكل أساسي في العملية...

في السطر الثاني عرفنا متغير يحدد مسار إنشاء الاختصار و هو الـ Special Folder حاليا سطح المكتب و هناك عدة قيم للـ Item:

في السطر الثالث عرفنا متغير الاختصار الذي سنستخدمه لإنشاء الاختصار و إسناد الخصائص للملف المنشأ..

الآن سنحدد اسم ملف الاختصار:

shortcut_file = CType(wshshell.CreateShortcut(desktop_PTH & "\windowsapplication3.lnk"), IWshRuntimeLibrary.IWshShortcut)

في القسم الأول من هذا السطر قمنا بإسناد الأمر Create Shortcut و أعطينا اسم للملف في حالتي هنا سميته windowsapplication3.lnk

و لاحظ الامتداد lnk و باستخدام CType قمنا بتحويل هذه الصيغة إلى اختصار في القسم الثاني من الكود WshRuntimeLibrary.IWshShortcut

shortcut_file.TargetPath = Application.StartupPath & "\windowsapplication3.exe"
shortcut_file.WindowStyle = 2
shortcut_file.Description = "Shortcut Example"
shortcut_file.WorkingDirectory = desktop_PTH
shortcut_file.IconLocation = "windowsapplication2.exe,0"
shortcut_file.Save()

هنا الآن بدأنا بإسناد الخواص لملف الاختصار الذي أنشأناه:

السطر الأول يحدد الملف الهدف الذي نريد عمل اختصار له و هو هنا نفس الملف التنفيذي..

السطر الثاني نحدد شكل الواجهة

السطر الثالث شرح ملف الاختصار

السطر الرابع نحدد دليل العمل

السطر الخامس نحدد أيقونة الملف

و أخيرا السطر السادسنقوم بحفظ المعلومات التي أدخلت و يتم إنشاء الملف في سطح المكتب..

و هذا مثال العمل:

WindowsApplication2.zip

و هذا مثال آخر عن نفس الموضوع و لكن بطريقة مختلفة:

هذا الملف يشتغل و ينتهي فورا و يمكن الاستفادة منه

في مشروع الست أب تضعه لكي يشتغل بعد نهاية الست أب و يقوم بإنشاء الاختصارات لك..

WindowsApplication3.zip