ساخت shortcut برای برنامه ؟

[butterfly8528]

سلام به دوستان گل

من یه 3 - 4 ماهی نبودم جدی جدی دلم واسه برنامه نویس و تمام برنامه نویساش تنگ شده بود :بامزه:

من میخوام از فایل اجرایی برنامم 2 جا shortcut درست کنم .

1- روی Desktop

2- تو All Programs یک فولدر با نام دلخواه درست کنه بعد یه شرت کات تو اونجا ایجاد کنه .

لطفا ساده ترین و کوتاه ترین راه رو بگید .

در ضمن بگم که من دارم یه فایل setup درست میکنم و این هم واسه همین میخوام .

Please Hary Up :تشویق:

[sina26]

سلام به دوستان گل :قهقهه:

من یه 3 - 4 ماهی نبودم جدی جدی دلم واسه برنامه نویس و تمام برنامه نویساش تنگ شده بود :بامزه:

من میخوام از فایل اجرایی برنامم 2 جا shortcut درست کنم .

1- روی Desktop

2- تو All Programs یک فولدر با نام دلخاه درست کنه بعد یه شرت کات تو اونجا ایجاد کنه .

لطفا ساده ترین و کوتاه ترین راه رو بگید .

در ضمن بگم که من دارم یه فایل setup درست میکنم و این هم واسه همین میخوام .

Please Hary Up :تشویق:
سلام عزیز
اگه برا درست کردن فایل setup از نرم افزار installshild استفاده بکنی این درخواست های شما بترتیب برا شما خواهد آمد و تیک مخصوص خواسته خودت رو بزن.
موفق باشی

[butterfly8528]

سلام عزیز
اگه برا درست کردن فایل setup از نرم افزار installshild استفاده بکنی این درخواست های شما بترتیب برا شما خواهد آمد و تیک مخصوص خواسته خودت رو بزن.
موفق باشی

sina جان من اگه میخاستم از این برنامه ها استفاده کنم که اینجا تاپیک نمیزدم :لبخند:

این جور نرم افزار ها نیاز های من رو بر آورده نمیکنه :افسرده:

حالا انشا الله وقتی کامل شد میزارم همتون ببینید :بامزه:

کمممممممممممممممممممک :تشویق:

[Babak.Hassanpour]

http://barnamenevis.org/forum/attachment.php?attachmentid=27173&d=1231363182

[butterfly8528]

babak125 عزیز مر30

لطفا قسمت هایی رو که با رنگ قرمز مشخص کردم توضیح بده :خجالت:


Public Function MK_Shortcut(ShortCutNameWithAddress, EndAddress, IconAddress) As Boolean

[Babak.Hassanpour]

babak125 عزیز مر30

لطفا قسمت هایی رو که با رنگ قرمز مشخص کردم توضیح بده :خجالت:


Public Function MK_Shortcut(ShortCutNameWithAddress, EndAddress, IconAddress) As Boolean

ShortCutNameWithAddress: مسیر و نام شورتکات(جایی که شورتکات توش ایجاد میشه)

EndAddress: همون Target است.چیزی که وقتی روی شورتکات کلیک کنید باید اجرا بشه

IconAddress: اینم آیکنه دیگه

[butterfly8528]

IconAddress: اینم آیکنه دیگه

بابک عزیز در این قسمت باید آدرس یک آیکن رو بدیم ؟

نمیشه کاری کرد که آیکن شورت کات ساخته شده با آیکن فایل اصلی یکی باشه ؟

[Babak.Hassanpour]

شما میتونی از این کد استفاده کنی


Dim wsh As Object
Dim Shortcut As Object
Dim sf As Object
Set wsh = CreateObject("wscript.shell")
Set sf = wsh.SpecialFolders
Set Shortcut = wsh.CreateShortcut(sf("AllUsersDesktop") & "\" & "Jiviz.lnk")
Shortcut.TargetPath = "C:\jiviz.exe"
Shortcut.WorkingDirectory = sf("AllUsersDesktop")
Shortcut.Description = "Jiviz"
Shortcut.Save


البته همونه اگه دقت کنید

[butterfly8528]

babak125 عزیز باز هم مرسی

انگار باید دنبال راه بهتری بگردم :متفکر:

بازم اگه کسی چیزی بلده بسم الله :تشویق:

[butterfly8528]

دوستان مشکلم حل شد .

پروژش رو هم واستون ضمیمه میکنم که اگه زمانی کسی به این مشکل بر خورد وقتش

حروم نشه .

در ضمن VB6STKIT.DLL هم باید در کنار برنامتون باشه که برنامه در سیستم هایی هم که

vb ندارن کار کنه :خجالت:

اگه سوالی بود در خدمتم .:بامزه: