سلام
چطوری می شه به جای کپی گرفتن از فایل مورد نظر,یک شورت کات از برنامه بگیریم.
خدا حافظ
سلام
برای ساختن 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 رو هم ضمیمه کردم
موفق باشی
arashrj نوشته است:فایل dll رو هم ضمیمه کردم
من که چیزی نمی بینم
yeketaz نوشته است:arashrj نوشته است:فایل dll رو هم ضمیمه کردم
من که چیزی نمی بینم
جناب arashrj از بابت روشی که گفتی ممنون
لطفا فایل رو یک بار دیگه ضمیمه کن.
در مورد جستجوی فایل بدون استفاده از FSO هم چیزی دستگیرم نشد
سلام
فایل رو دوباره ضمیمه کردم
موفق باشی
zacaria نوشته است:جناب arashrj از بابت روشی که گفتی ممنون
لطفا فایل رو یک بار دیگه ضمیمه کن.
در مورد جستجوی فایل بدون استفاده از FSO هم چیزی دستگیرم نشد
سلام
این هم یه نمونه کد برای جستجو
موفق باشی
سلام
زمانی که می خوام dll مورد نظر رو وارد کنم اخطار پائین رو به می ده ؟
کسی می تونه چرا؟و چگونه می شه درستش کرد؟
connot add a reference to the specified file.
خدا حافظ
xsalamx نوشته است:سلام
زمانی که می خوام dll مورد نظر رو وارد کنم اخطار پائین رو به می ده ؟
کسی می تونه چرا؟و چگونه می شه درستش کرد؟
connot add a reference to the specified file.
خدا حافظ
سلام
نیازی نیست به پروژه اضافه کنی.
فقط کافیه کنار فایل exe قرار بدی. (همین طوری اگه بخوای برنامه رو اجرا کنی خطا میده . در نتیجه اول exe کن بعد ...)
موفق باشی
سلام
دستتون درد نکنه فقط سه تا مشکل دیگه ام دارم
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
خدا حافظ
سلام
خوشحالم که سوالات جالب می پرسی
جواب 1 : کاملا منطقی که جواب نده . چون داری آدرس مستقیم میدی
جواب 2: dll خودش تشخیص می ده که ویندوز کجا نصب شده
جواب 3: در کد زیر تمام مشکل ها رو یکجا حل کردم
RJ = fCreateShellLink("..\..\Start Menu\Programs\Startup", App.EXEName, App.Path & "\" & App.EXEName, "")
در کد بالا برنامه به طور خودکار در Startup قرار میگیره و اسمش هم برابر اسم خود فایل اجرایی میشه
موفق باشی
سلام
از تمام کسانی که به بنده کم سواد کمک کردن که مقداری به معلومات ناقصم افزوده بشه ممنونم.( بخوصوص از جناب arashrj)
خدا حافظ