عمل short cut

انا اعتقد عند عمل Package للبرنامج مع EXE يسأل اذا كنت تريد وضع ShortCut

اذا قمت بعمل تحزيم لبرنامجك فانه يظهر في قائمة البرامج اما اذا كنت تريد الطريقة عن طريق الكود فانا انتظر معك ايضا رد الاعضار

وشكرا

السلام عليكم ورحمة الله وبركاته

Public Function CreateShortcut(TargetPath As String, ShortcutPath As String, Optional HotKey As String)
Dim WSHShell As Object
If Right(ShortcutPath, 4) <> ".lnk" Then ShortcutPath = ShortcutPath & ".lnk"
Set WSHShell = CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, DesktopPath As String
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(ShortcutPath)
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(TargetPath)
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.HotKey = HotKey
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings(TargetPath)
MyShortcut.Save
End Function

جميل لقد وجدت تقريبا نفس الكود

في الرابط :http://www.freevbcode.com/ShowCode.asp?ID=3837

فقط تعليق على الكود السابق

لماذا وضعت أخي في WorkingDirectory يساوي ExpandEnvironmentStrings("%windir%")

المفروض أن لا يكون دائما في مجلد الويندوز

اذا أردت وضع references لكي أعمل مع هذه الفئة ماهو المرجع الخاص الذي يضم هذه الفئة

حد يعبرنا على الأقل