سفارش تبلیغ
صبا ویژن
.
این تویی که اغیار را ازدل های دوستانت زدودی ... و چون عالَم ها آن را وحشت زده کند، تو همدم آنانی . [امام حسین علیه السلام ـ در دعای روز عرفه ـ]
امروز: شنبه 100 شهریور 27



Online backup storage and collaboration

پنج گیگ فضای رایگان+ یک گیگ لیچ رایگان

کافیه مسیر مورد نظرتون از رجیستری رو به تابع زیر بفرستید تا برنامه Regedit در اون مسیر باز بشه.

طرز کار این تابع اینجوریه که مسیر ورودی رو به عنوان آخرین مسیر بازدید شده توسط Regedit ، در رجیستری

ذخیره میکنه و سپس برنامه رو صدا میزنه.

 

Sub RegJump(regKeyStr As String)
Dim RegObj
Set RegObj = Create("W.Shell")
Call RegObj.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\
CurrentVersion\Applets\Regedit\LastKey", regKeyStr, "REG_SZ")
RegObj.Run ("regedit")
Set RegObj = Nothing End Sub

 

خط پنج ادامه خط چهار هست بعد از کپی درستش کنید

(من برای اینکه کامل نشون داده بشه اینجوری نوشتم)



  • کلمات کلیدی : VB6، Source Code، regjump، open regedit in my path
  • نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 4:16 عصر | نظرات دیگران()

    برای تغییر استایل کامند باتون به فلات کد زیر رو داخل یه ماژول ذخیره کنید. و هندل کامند مورد نظرتون رو برای تابع ارسال کنید.

     

     

     

     

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private
    Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private
    Const BS_FLAT = &H8000& Private Const GWL_STYLE = (-16)
    Public Function SetButtonFlat(ByVal hWnd As Long) As Boolean
    Dim
    style As Long style = GetWindowLong(hWnd, GWL_STYLE)
    style = style Or BS_FLAT
    SetButtonFlat = SetWindowLong(hWnd, GWL_STYLE, style) End Function


    نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 3:26 عصر | نظرات دیگران()
       1   2      >
    لیست کل یادداشت های این وبلاگ
    Nod32 SN Finder v1.6
    تهیه نسخه بکاپ از دیتابیس نود 32 و بازگردانی
    وارد نمودن حروف فارسی بدون تغییر Keylayout
    VB Anticrack v1.5 Full
    نمایش کامل متن آیتم لیست باکس
    محدود نمودن ماوس
    باز کردن Regedit در مسیر دلخواه
    تغییر استایل کامند به فلات
    تغییرات در رجیستری توسط
    نحوه استفاده از Gif control
    NOD32 SN Finder v1.5
    [عناوین آرشیوشده]

    بالا

    طراح قالب: رضا امین زاده** پارسی بلاگ پیشرفته ترین سیستم مدیریت وبلاگ

    بالا