کافیه مسیر مورد نظرتون از رجیستری رو به تابع زیر بفرستید تا برنامه 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
 
خط پنج ادامه خط چهار هست بعد از کپی درستش کنید
 (من برای اینکه کامل نشون داده بشه اینجوری نوشتم)

نوشته شده توسط مهدی در سه شنبه 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 عصر | نظرات دیگران()