چطور میتونم از برنامم که exe اش کردم یک shortcut از طریق vb درست کنم.
ممنونم.
Printable View
چطور میتونم از برنامم که exe اش کردم یک shortcut از طریق vb درست کنم.
ممنونم.
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long
Çíä ÊÇÈÚ í˜ ãíÇäÈÑ ÇÒ í˜ ÝÇíá ÏáÎæÇå ÏÑ ãÓíÑ ÏÇÏå ÔÏå ãí ÓÇÒÏ
ÇÑ ÊÇÈÚ ˜ÇÑ ÎæÏ ÑÇ ÈÇ ãæÝÞíÊ Èå ÇíÇä ÈÑÓÇäÏ ãÞÏÇÑ ÈÇÒÔÊí í˜ ÚÏÏ ÛíÑ ÕÝÑ æ ÇÑ ÊÇÈÚ ÈÇ ÎØÇíí ãæÇÌå ÔæÏ ãÞÏÇÑ ÈÑ ÔÊí ÕÝÑ ÎæÇåÏ ÈæÏ
lpstrFolderName : ãÓíÑí ˜å ãíÇäÈÑ ÈÇíÏ ÏÑ ÂäÌÇ ÓÇÎÊå ÔæÏ
lpstrLinkName : äÇã ãíÇäÈÑ ÓÇÎÊÇ ÔÏå
lpstrLinkPath : ÝÇíáí ˜å ÈÇíÏ ÈÇ ˜áí˜ ÈÑ Ñæí ãíÇäÈÑ ÇÌÑÇ ÔæÏ
lpstrLinkArguments : ÂÑæãÇä åÇí ãíÇäÈÑ (ÏÑÕæÑÊ áÒæã)
fPrivate : ÇÑ False ÈÇÔÏ ãíÇäÈÑ ÓÇÎÊå äãí ÔæÏ æ ÇÑ True ÈÇÔÏ ãíÇäÈÑ ÓÇÎÊå ãí ÔæÏ
sParent :
کاش کمی واضحتر می نوشتید.
ابتدا متغيرهای زیر را که از نوع Object هستند تعريف کنید :
Dim wsh As Object
Dim Shortcut As Object
سپس بايستی شی wsh را ايجاد نمائید :
Set wsh = CreateObject("wscript.shell")
سپس بايستی شی Shortcut را ايجاد نمائيد :
Set Shortcut = wsh.CreateShortcut("c:\YourProgram.lnk")
مسیری که در کد فوق داده شده محل ساخت شورتکات می باشد .
سپس بايستی پارامترهای شی Shortcut را تنظيم کنيد :
Shortcut.TargetPath = "C:\Program Files\Test\YourProgram.exe"
Shortcut.IconLocation = "C:\Program Files\Test\YourIcon.ico"
Shortcut.WorkingDirectory = "C:\Program Files\Test\"
Shortcut.Description = "Your Description"
پارامتر TargetPath برنامه مرتبط با شورتکات را نشان می دهد .
در پایان بايستی شورتکات را ذخيره کنيد :
Shortcut.Save
نکته : برای ايجاد شورتکات در دسکتاپ یا در Startup ، بايستی متغيری از نوع SpecialForders ايجاد نمائيد :
Dim sf As Object
Set sf = wsh.SpecialFolders
سپس محل ساخت شورتکات را بصورت sf("AllUsersDesktop") & YourPath و یا sf("AllUsersStartup") & YourPath بدهيد .
ازکمکتون بسیار متشکرم
نقل قول:
اينم همونه
کد:Set B = CreateObject("wscript.shell")
Set c = B.CreateShortcut(ShortcutAddress) + ".lnk")
c.TargetPath = TargetAddress
c.WindowStyle = 1
C.Hotkey = "CTRL+SHIFT+F"
c.IconLocation = TargetAddress + ", 0"
c.Description = FileDescription
c.WorkingDirectory = TargetPath
c.Save