محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1829164994
vb6; چکار کنیم که برنامه مون با بالا اومدن سیستم خود به خود Run بشه؟؟؟ -
واضح آرشیو وب فارسی:سایت ریسک: vb 6; چکار کنیم که برنامه مون با بالا اومدن سیستم خود به خود Run بشه؟؟؟ Saeed Shahabi 26 فروردين 1389, 14:42با عرض سلام... چکار کنیم که برنامه مون با بالا اومدن سیستم خود به خود Run بشه؟ متشکرم دوستی 26 فروردين 1389, 14:46فایل برنامتون رو کپی کنید توی پوشه startup ویندوز. راه های دیگه ای هم داره ولی این سادست. موفق باشید saalek110 26 فروردين 1389, 19:02از راههای دیگر ثبت در قسمتی از رجیستری است.برای این مورد سرچ شود. the_king 26 فروردين 1389, 23:48با عرض سلام... چکار کنیم که برنامه مون با بالا اومدن سیستم خود به خود Run بشه؟ متشکرم حتما کدتون رو بصورت فایل اجرایی exe تبدیل کنید (Make در منوی File) چون برای هر دو شیوه پیشنهادی باید برنامه exe اجرا شود : فایل برنامتون رو کپی کنید توی پوشه startup ویندوز. راه های دیگه ای هم داره ولی این سادست. موفق باشید Private Sub Form_Load() Dim AppPath As String, StartupPath As String AppPath = App.Path & IIf(Right(App.Path, 1) = "", "", "") & App.EXEName & ".exe" StartupPath = Environ("ALLUSERSPROFILE") & "Start MenuProgramsStartup" FileCopy AppPath, StartupPath & "" & App.EXEName & ".exe" End Sub از راههای دیگر ثبت در قسمتی از رجیستری است.برای این مورد سرچ شود. Option Explicit Private Const KEY_WRITE As Long = &H20006 Private Const ERROR_SUCCESS As Long = 0& Private Const HKEY_LOCAL_MACHINE As Long = &H80000002 Private Const REG_SZ As Long = 1 Private Const RunKey As String = "SOFTWAREMicrosoftWindowsCurrentVersionRun" Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As Any, ByVal cbData As Long) As Long Private Sub Form_Load() Dim AppPath As String, StartupPath As String Dim hKey As Long AppPath = App.Path & IIf(Right(App.Path, 1) = "", "", "") & App.EXEName & ".exe" If RegOpenKeyEx(HKEY_LOCAL_MACHINE, RunKey, 0, KEY_WRITE, hKey) = ERROR_SUCCESS Then RegSetValueEx hKey, App.Title, 0, REG_SZ, ByVal """" & AppPath & """" & vbNullChar, Len(AppPath) + 3 RegCloseKey hKey End If End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 328]
-
گوناگون
پربازدیدترینها