ایجاد shortcut از یک فایل exe ؟

[babak_beiknejat]

چطور میتونم از برنامم که exe اش کردم یک shortcut از طریق vb درست کنم.
ممنونم.

[MrJamshidy]

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 :

[babak_beiknejat]

کاش کمی واضحتر می نوشتید.

[M-B-M]

ابتدا متغيرهای زیر را که از نوع 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 بدهيد .

[babak_beiknejat]

ازکمکتون بسیار متشکرم

ابتدا متغيرهای زیر را که از نوع 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 بدهيد .

[erroring]

اينم همونه

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید