ساخت Shortcut از از فایل مورد نظر در ویندوز(حل شد)

[xsalamx]

سلام

چطوری می شه به جای کپی گرفتن از فایل مورد نظر,یک شورت کات از برنامه بگیریم.

خدا حافظ

[arashrj]

سلام
برای ساختن Shortcut در وی بی بهتره از "STKIT432.DLL" استفاده کنی

این هم یه نمونه کد ساده برای ساختن Shortcut از برنامه خودت در دسکتاپ

کد:

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Private Sub Form_Load()
Dim RJ As Long
RJ = fCreateShellLink("..\..\Desktop", "My Program !", App.Path & "\" & App.EXEName, "")
End Sub

فایل dll رو هم ضمیمه کردم

موفق باشی

[yeketaz]

فایل dll رو هم ضمیمه کردم

من که چیزی نمی بینم

[zacaria]

فایل dll رو هم ضمیمه کردم

من که چیزی نمی بینم

جناب arashrj از بابت روشی که گفتی ممنون
لطفا فایل رو یک بار دیگه ضمیمه کن.
در مورد جستجوی فایل بدون استفاده از FSO هم چیزی دستگیرم نشد

[arashrj]

سلام
فایل رو دوباره ضمیمه کردم

موفق باشی

[arashrj]

جناب arashrj از بابت روشی که گفتی ممنون
لطفا فایل رو یک بار دیگه ضمیمه کن.
در مورد جستجوی فایل بدون استفاده از FSO هم چیزی دستگیرم نشد

سلام

این هم یه نمونه کد برای جستجو

موفق باشی

[xsalamx]

سلام

زمانی که می خوام dll مورد نظر رو وارد کنم اخطار پائین رو به می ده ؟
کسی می تونه چرا؟و چگونه می شه درستش کرد؟
connot add a reference to the specified file.

خدا حافظ

[arashrj]

سلام

زمانی که می خوام dll مورد نظر رو وارد کنم اخطار پائین رو به می ده ؟
کسی می تونه چرا؟و چگونه می شه درستش کرد؟
connot add a reference to the specified file.

خدا حافظ

سلام
نیازی نیست به پروژه اضافه کنی.
فقط کافیه کنار فایل exe قرار بدی. (همین طوری اگه بخوای برنامه رو اجرا کنی خطا میده . در نتیجه اول exe کن بعد ...)

موفق باشی

[xsalamx]

سلام

دستتون درد نکنه فقط سه تا مشکل دیگه ام دارم
1- زمانی که برنامه تغییر زیر(تغییر در مسیر) روش اعمال می شه دیگه عمل مورد نظر انجام نمی شه
RJ = fCreateShellLink("C:\Documents and Settings\ََAll Users\Start Menu\Programs\Startup", "My Program !", App.Path & "\" & App.EXEName, "")

2-در بالا ما مسیر رو C تعیین کردیم حالا اگه ویندوز در درایوی به جز C باشه پس مسیر دسکتاپ هم عوض می شه به طور مثال اگه ویندوز توی D نصب شده باشه آدرس بالا به صورت زیر می شه:
D:\Documents and Settings\ََAll Users\Start Menu\Programs\Startup
و مسیر پیش فرض ما اشتباه از آب در می یاد و برنامه به مشکل بر می خوره حالا برای جلوگیری از این اخطار چیکار باید بکنیم

3-نام شورت کی نام خود برنامه باشد نه My Program

خدا حافظ

[arashrj]

سلام
خوشحالم که سوالات جالب می پرسی
جواب 1 : کاملا منطقی که جواب نده . چون داری آدرس مستقیم میدی
جواب 2: dll خودش تشخیص می ده که ویندوز کجا نصب شده
جواب 3: در کد زیر تمام مشکل ها رو یکجا حل کردم

RJ = fCreateShellLink("..\..\Start Menu\Programs\Startup", App.EXEName, App.Path & "\" & App.EXEName, "")

در کد بالا برنامه به طور خودکار در Startup قرار میگیره و اسمش هم برابر اسم خود فایل اجرایی میشه

موفق باشی

[xsalamx]

سلام

از تمام کسانی که به بنده کم سواد کمک کردن که مقداری به معلومات ناقصم افزوده بشه ممنونم.( بخوصوص از جناب arashrj)

خدا حافظ