Registry Menage JSP©
	Dll Name: RegistryMenageJSP.dll
	Descrption on References: 100 OCX JSP - FunctionsJSP V1.5P - RegistryMenageJSP©
	File Size: 65,536 bytes
	Number of Functions: 17 n
	Copyright: 2003 - 2005
	Last Date Updatet: 04 Sep 2005
	New Version: 1.5.0.1
	Author: Javad Soltani (JSP) Javad_JSP@Yahoo.com
	1 - Copy Value
	Format:
	CopyValue(HKEYSource As Hkeys, SubKeySource As String, ValueNameSource As String, [HKEYDestination As Hkeys], [SubKeyDestination As String],
	[ValueNameDestination As String]) As Boolean
	Function	Type	Mode	Description
	CopyValue	Boolean	Function	به کمک این تابع میتوانید یک داده را از کلیدی در رجیستری به مکان دیگری کپی کنید اگر تابع موفق به انجام فرمان شود True برمیگرداند
	HKEYSource	Hkeys	Input ByVal	Sub Key مسیر مبداء را اینجا وارد کنید
	SubKeySource	String	Input ByVal	مسیر کلید مبداء را اینجا وارد کنید
	ValueNameSource	String	Input ByVal	نام داده مبداء که باید کپی شود را اینجا وارد کنید
	HKEYDestination	String	Input ByVal	Sub Key مسیر مقصد است و اگر ذکر نگردد Sub Key مبداء به جای آن در نظر گرفته میشود
	SubKeySource	String	Input ByVal	مسیر کلید مقصد را اینجا وارد کنید و اگر ذکر نگردد مسیر کلید مبداء جایگزبن آن خواهد شد
	ValueNameDestination	String	Input ByVal	نام داده مقصد که باید کپی شود بعنی امکان تغییر نام نیز وجود دارد و اگر ذکر نگردد نام داده مبداء جایگزبنش خواهد شد
				* اگر مسیر مقصد ذکر شده وجود نداشته باشد به وسیله تابع ایجاد میگردد.
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	Call RegMan.CopyValue([HKey CURRENT_USER], "Software\JSP\ASJ\5.3", "vTest", , , "CvTest")
	2 - Copy Values
	Format:
	CopyValues(HKEYSource As Hkeys, SubKeySource As String, [HKEYDestination As Hkeys], [SubKeyDestination As String]) As Boolean
	Function	Type	Mode	Description
	CopyValues	Boolean	Function	به کمک این تابع میتوانید تمام داده های یک کلید را به کلید دیگری کپی کنید اگر تابع موفق به انجام فرمان شود True برمیگرداند
	HKEYSource	Hkeys	Input ByVal	Sub Key مسیر مبداء را اینجا وارد کنید
	SubKeySource	String	Input ByVal	مسیر کلید مبداء را اینجا وارد کنید
	HKEYDestination	String	Input ByVal	Sub Key مسیر مقصد است و اگر ذکر نگردد Sub Key مبداء به جای آن در نظر گرفته میشود
	SubKeySource	String	Input ByVal	مسیر کلید مقصد را اینجا وارد کنید و اگر ذکر نگردد مسیر کلید مبداء جایگزبن آن خواهد شد
				* اگر مسیر مقصد ذکر شده وجود نداشته باشد به وسیله تابع ایجاد میگردد.
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	Call RegMan.CopyValues([HKey CURRENT_USER], "Software\JSP\ASJ\5.3", [HKey LOCAL_MACHINE],"SOFTWARE\JSP\ASJ\5.3")
	3 - Correct Value
	Format:
	CorrectValue(UnCorrectValue, ValueType As ValueTypes)
	Function	Type	Mode	Description
	CorrectValue	Variant	Function	این تابع داده هایی را که از رجیستری خوانده میشوند را به فرمت قابل پردازش توسط یک برنامه, تبدیل میکند
	UnCorrectValue	Variant	Input ByVal	مقدار داده ای که قرار است تبدیل شود
	ValueType	ValueTypes	Input ByVal	فرمت داده ای که باید به مقدار صحیحش تبدیل شود
	Sample Code:
	Dim CorrectPath As String
	Dim TypeValue   As ValueTypes
	Dim RegMan      As New RegistryMenageJSP.RegistryMenage
	Call RegMan.HaveValue([HKey CURRENT_USER], "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", , _
	NameValue$, TypeValue, DataValue)
	CorrectPath = RegMan.CorrectValue(DataValue, TypeValue)
	MsgBox "your " & NameValue$ & " path is " & CorrectPath & " .", , "this is Correct Path (len=" & Len(CorrectPath) & ")"
	MsgBox "your " & NameValue$ & " path is " & DataValue & " .", , "this is UnCorrect Path (len=" & Len(DataValue) & ")"
	4 - Create Key
	Format:
	CreateKey(HKEY As Hkeys, SubKey As String, [DefaultValueType As ValueTypes = regSZ], [DefaultValueData], [IsNewKey As Boolean]) As Boolean
	Function	Type	Mode	Description
	CreateKey	Boolean	Function	با این تابع اقدام به ساختن یک کلید کنید و از آنجایی که با ساخت کلید داده (Default) نیز ساخته میشود میتوانید این داده را مدیریت کنید اگر تابع موفق به انجام فرمان شود True برمیگرداند
	HKEY	Hkeys	Input ByVal	Sub Key مسیر کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید را اینجا وارد کنید
	DefaultValueType	ValueTypes	Input ByVal	در این جا Type داده (Default) را تایین کنید
	DefaultValueData	Variant	Input ByVal	در ابن جا مقدار داده (Dfault) را بنویسید
	IsNewKey	Boolean	Output ByRef	در صورتی که کلید قبلا وجود داشته باشد تابع در حد توان اقدام به تغییر مشخصات داده (Default) میکند و در غیر آنصورت بعنی اگر کلید ساخته شده یک کلید جدید باشد به این خروجی خود مقدار True را صادر میکند
	Sample Code:
	Dim RegMan   As New RegistryMenageJSP.RegistryMenage
	Dim IsNewKey As Boolean
	If RegMan.CreateKey([HKey CURRENT_USER], "Software\JSP\TestKey", , "SampleDataValue", IsNewKey) Then _
	If IsNewKey Then MsgBox "program maked a new key", , "Test Code"
	5 - Create Value
	Format:
	CreateValue(HKEY As Hkeys, SubKey As String, ValueName As String, [ValueType As ValueTypes = regSZ], [ValueData], [IsNewValue As Boolean]) As Boolean
	Function	Type	Mode	Description
	CreateValue	Boolean	Function	با این تابع اقدام به ساختن یک Value  داده کنید و اگر تابع موفق به انجام فرمان شود True برمیگرداند
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید داده را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید متعلق به داده را اینجا وارد کنید. توجه داشته باشید که مسیر فوق حتما باید وجود داشته باشد تا تابع کار کند
	ValueName	String	Input ByVal	نام داده جدید
	ValueType	ValueTypes	Input ByVal	در این جا Type داده جدید را تایین کنید
	ValueData	Variant	Input ByVal	در ابن جا مقدار داده جدید را بنویسید
	IsNewValue	Boolean	Output ByRef	در صورتی که آن داده قبلا وجود داشته باشد تابع در حد توان اقدام به ویرایش آن داده کرده و در غیر آنصورت بعنی اگر داده ساخته شده  یک داده جدید باشد به این خروجی خود مقدار True را صادر میکند
	Sample Code:
	Dim RegMan     As New RegistryMenageJSP.RegistryMenage
	Dim IsNewValue As Boolean
	If RegMan.CreateValue([HKey CURRENT_USER], "Software\JSP\TestKey", "VlNameT", regDWORD, CLng(False), IsNewValue) Then _
	If IsNewValue Then MsgBox "program maked a new Value", , "Test Code"
	6 - Delete Reg Key & Value
	Format:
	DeleteReg(HKEY As Hkeys, SubKey As String, [ValueName As String]) As Boolean
	Function	Type	Mode	Description
	DeleteReg	Boolean	Function	با این تابع اقدام به حذف یک Value  داده  با کلید Key کنید و اگر تابع موفق به انجام فرمان شود True برمیگرداند
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید با داده ای که باید حذف شوند
	SubKey	String	Input ByVal	مسیر و نام کلید اگر بخواهید کلیدی را حذف کنید که زیر کلید داشته باشد با دارای داده باشد و یا امکان حذف آن در ACL* برای شما بسته باشد, تابع نمیتواند کار خود را درست انجام دهد
	ValueName	String	Input ByVal	نام داده ای که باید حذف شود و اگر نامی ذکر نگردد تابع این طور در نظر میگیرد که میخواهید کلید مربوطه را حذف کنید
				*ACL یا Access Control List در رابطه با مدیریت امنیت رجیستری میباشد که در آینده در دنباله مقالات اسرار رجیستری درباره آن به تفضیل صحبت خواهد شد.
	Sample Code:
	Dim RegMan   As New RegistryMenageJSP.RegistryMenage
	Dim IsNewKey As Boolean
	MsgBox RegMan.DeleteReg([HKey CURRENT_USER], "Software\JSP\TestKey", "NValuei")
	MsgBox RegMan.DeleteReg([HKey CURRENT_USER], "Software\JSP\TestKey")
	7 - Edit Value
	Format:
	EditValue(HKEY As Hkeys, SubKey As String, ValueName As String, NewValueName As String, [NewValueType As ValueTypes], [NewValueData]) As Boolean
	Function	Type	Mode	Description
	EditValue	Boolean	Function	با این تابع میتوانید نام, محتوا و حتی فرمت بک Value داده را تغییر دهید اگر تابع موفق به انجام فرمان شود True برمیگرداند
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید داده را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید متعلق به داده را اینجا وارد کنید
	ValueName	String	Input ByVal	نام داده ای که باید ویرایش شود
	NewValueName	String	Input ByVal	نام جدید داده را حتما وارد کنید در صورت وارد نکردن, تابع داده فعلی را حذف کرده و داده (Default) موجود در کلید را ویرایش میکند
	NewValueType	ValueTypes	Input ByVal	در ابن جا فرمت جدید داده را بنویسید و در صورتی که ذکر نگردد تابع فرمت قبلی را برای داده در نظر میگیرد
	NewValueData	Variant	Input ByVal	در ابن جا مقدار جدید داده را بنویسید و در صورتی که ذکر نگردد تابع مقدار قبلی را برای داده در نظر میگیرد
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	Call RegMan.EditValue([HKey CURRENT_USER], "Software\JSP\TestKey", "VlNameTOld", "VlNameTNew", , "NewDataValue")
	8 - Empty Reg
	Format:
	EmptyReg(HKEY As Hkeys, SubKey As String, [EmptyValuesKey As Boolean = True], [EmptyAllSubKeys As Boolean = True],
	[OnlyEmptyAllValues As Boolean = False]) As Boolean
	Function	Type	Mode	Description
	EditValue	Boolean	Function	با این تابع میتوانید محتوای یک کلید یعنی همه داده ها و همه زیر کلید ها را را حذف کنید اگر تابع موفق به انجام فرمان شود True برمیگرداند. از آنجایی که این تابع فوق العاده خطرناک است و شما فقط با یک خط فرمان به وسیله آن میتوانید نیمی از رجیستری خود را از بین ببرید, نام این تابع را تابع قاتل گذاشته ام. از این رو در زمانی که فرمان حذف کلید های اصلی صادر شود پیغامی مبنی براینکه "آیا از کاری که انجام میدهید مطمعن هستید" توسط تابع صادر میگردد که در صورت پاسخ مثبت به آن پیغام تابع عملیات خواسته شده را تکمیل میکند.
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	EmptyValuesKey	Boolean	Input ByVal	در صورت True بودن تابع اقدام به خالی کردن همه داده ها میکند البته شامل داده های زیر کلید ها نمیشود
	EmptyAllSubKeys	String	Input ByVal	در صورت True بودن تابع اقدام به حذف همه زیر کلیدها میکند
	OnlyEmptyAllValues	ValueTypes	Input ByVal	در صورت True بودن تابع اقدام به حذف همه داده های موجود در زیر کلیدها میکند اما زیر کلید ها را پاک نمیکند
				* قبل از حذف یک کلید به وسیله تابع DeleteReg به کامل عمل کردن آن تابع ابتدا کلید مذکور را با این تابع EmptyReg کاملا خالی کنید سپس آن را حذف نمایید
	* همان طور که گفته شد این تابع بی چون و چرا هر آنچرا که به او بگویید از بین میبرد به این منظور در زمان حذف کلید های اصلی دو پیغام صادر میشود در صورتی که نمی خواهید این دو پیغام صادر شود خصوصیت MesForProcessOnMainKeys را برابر False قرار دهید مقدار پیش فرض آن True میباشد
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	Call RegMan.EmptyReg([HKey CURRENT_USER], "Software\JSP\TestEmpty")
	9 - Expand_SZ to String
	Format:
	EXPAND_SZStr(DataInput As String) As String
	Function	Type	Mode	Description
	EXPAND_SZStr	String	Function	این تابع متغییر های داخلی داده های نوع Expand_SZ را به مسیر اصلیشان تبدیل میکند
	DataInput	String	Input ByVal	رشته ای که میخواهید از Expand_SZ به مسیر معتیر تبدیل شود را از اینجا وارد کنید
				* این تابع کلیه رشته هایی که توسط تابع Environ پشتیبانی می شود را, پشتیبانی میکند.
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	MsgBox RegMan.EXPAND_SZStr("%SystemRoot%\System32\*.exe")
	10 - Have Sub Key
	Format:
	HaveSubKey(HKEY As Hkeys, SubKey As String, [NameFirstSubKey As String], [NumberSubKey As Long]) As Boolean
	Function	Type	Mode	Description
	HaveSubKey	Boolean	Function	اگر کلید ورودی دارای زیر کلید باشد این تابع True برمیگرداند در ضمن گزارشی هم از تعداد و اولین زیر کلید به شما میدهد
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	NameFirstSubKey	String	Output ByRef	اگر کلید مورد نظرتان دارای زیر کلید بود این خروجی نام اولین زیر کلیدش را به شما میدهد
	NumberSubKey	Long	Output ByRef	تعداد کل زیر کلید های ردیف اول را به این خروجی میفرستد
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	If RegMan.HaveSubKey([HKey USERS], Empty, NameFirst$, NumKeys&) Then _
	MsgBox "Number of Keys " & CStr(NumKeys&) & vbCrLf _
	& "First Key Name: " & NameFirst$
	11 - Have Value
	Format:
	HaveValue(HKEY As Hkeys, SubKey As String, [NumberValues As Long], [NameFirstValue As String], [TypeFirstValue As ValueTypes],
	[DataFirstValue]) As Boolean
	Function	Type	Mode	Description
	HaveValue	Boolean	Function	در صورتی که کلید ورودی کاربر دارای داده باشد تابع فوق True برمیگرداند. و گزارشی از اولین داده موجود در کلید را میدهد
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	NumberValues	Long	Output ByRef	تعداد کل داده های موجود در کلید به وسیله این خروجی نشان داده میشود
	NameFirstValue	String	Output ByRef	اگر کلید دارای داده باشد این خروجی نام اولین داده پیدا شده را مشان میدهد
	TypeFirstValue	ValueTypes	Output ByRef	اگر کلید دارای داده باشد این خروجی فرمت اولین داده پیدا شده را مشان میدهد
	DataFirstValue	Variant	Output ByRef	اگر کلید دارای داده باشد این خروجی مقدار اولین داده پیدا شده را مشان میدهد
	Sample Code:
	Dim CorrectPath As String
	Dim TypeValue   As ValueTypes
	Dim RegMan      As New RegistryMenageJSP.RegistryMenage
	Call RegMan.HaveValue([HKey CURRENT_USER], "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", , _
	NameValue$, TypeValue, DataValue)
	CorrectPath = RegMan.CorrectValue(DataValue, TypeValue)
	MsgBox "your " & NameValue$ & " path is " & CorrectPath & " ."
	12 - Index Sub Key
	Format:
	IndexSubKey(HKEY As Hkeys, SubKey As String, [IndexHave As Long = 1], [NameSubKey As String], [NumberSubKeys As Long]) As Boolean
	Function	Type	Mode	Description
	IndexSubKey	Boolean	Function	با ورود یک عدد در این تابع Index امین عدد متناظر با زیر کلید های موجود در یک کلید به خروجی فرستاده میشود. در صورتی که تابع موفع به انجام فرمان شود True برمیگرداند. در ضمن تعداد کل زیر کلید های موجود در کلید مورد نظرتان را هم به خروجی میفرستد
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	IndexHave	Long	Input ByVal	شماره Index از زیر کلیدی که میخواهید نامش را بدانید اینجا وارد کنید
	NameSubKey	String	Output ByRef	این خروجی نام زیر کلید متناظر با Index ورودی شما را برمیگرداند. در صورتی که Index ورودی نامعتبر باشد مقدار Empty میدهد
	NumberSubKeys	Long	Output ByRef	در اینجا تعداد کل زیر کلید های موجود در کلید مورد نظرتان به شما نشان داده میشود
	Sample Code:
	Randomize Timer
	Dim RegMan      As New RegistryMenageJSP.RegistryMenage
	If RegMan.IndexSubKey([HKey CURRENT_USER], "Software", , NameIndexKey$, NumKeys&) Then
	Call RegMan.IndexSubKey([HKey CURRENT_USER], "Software", Int(Rnd * NumKeys&) + 1, NameIndexKey$)
	MsgBox NumKeys& & "-" & NameIndexKey$
	End If
	13 - Index Value
	Format:
	IndexValue(HKEY As Hkeys, SubKey As String, [IndexHave As Long = 1], [ValueName As String], [ValueType As ValueTypes], [ValueData],
	[NumberValues As Long]) As Boolean
	Function	Type	Mode	Description
	IndexValue	Boolean	Function	با ورود یک عدد در این تابع Index امین عدد متناظر با داده های موجود در یک کلید با تمام مشخصات به خروجی فرستاده میشود. در صورتی که تابع موفع به انجام فرمان شود True برمیگرداند. در ضمن تعداد داده های موجود در کلید مورد نظرتان را هم به خروجی میفرستد
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	IndexHave	Long	Input ByVal	شماره Index از داده ای که میخواهید آمارش را بدانید اینجا وارد کنید
	ValueName	String	Output ByRef	این خروجی نام داده متناظر با Index ورودی شما را برمیگرداند. در صورتی که Index ورودی نامعتبر باشد مقدار Empty میدهد
	ValueType	ValueTypes	Output ByRef	این خروجی نوع داده متناظر با Index ورودی شما را برمیگرداند
	ValueData	Variant	Output ByRef	این خروجی مقدار داده متناظر با Index ورودی شما را برمیگرداند
	NumberValues	Long	Output ByRef	در اینجا تعداد کل داده هایی موجود در کلید مورد نظرتان به شما نشان داده میشود
	Sample Code:
	Dim TypeV  As ValueTypes
	Dim DataV  As Variant
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	If RegMan.IndexValue([HKey CURRENT_USER], "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU", , _
	NameIndexV$, TypeV, DataV, NumValues&) Then
	Call RegMan.IndexValue([HKey CURRENT_USER], "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU", _
	Int(Rnd * NumValues&) + 1, NameIndexV$, TypeV, DataV)
	MsgBox NumValues& & vbCrLf & "Name Value: " & NameIndexV$ & vbCrLf & "Code Type Value: " & CStr(TypeV) & _
	vbCrLf & "Data Value: " & CStr(DataV), , "Nenu Run Commands"
	End If
	14 - Is Key
	Format:
	IsKey(HKEY As Hkeys, SubKey As String) As Boolean
	Function	Type	Mode	Description
	IsKey	Boolean	Function	اگر کلید مورد نظرتان در رجیستری وجود داشته باشد تابع True برمیگرداند
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	MsgBox RegMan.IsKey([HKey CURRENT_USER], "Software\JSP")
	15 - Is Main Key
	Format:
	IsMainKey(HKEY As Hkeys, SubKey As String, [FullKeyStr As String]) As Boolean
	Function	Type	Mode	Description
	IsMainKey	Boolean	Function	اگر کلید مورد نظرتان جزء کلید های اصلی باشد که این تابع میشناسد, True برمیگرداند
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید مورد نظرتان را اینجا وارد کنید
	FullKeyStr	String	Output ByRef	مسیر کامل وارد شده را نیز از این خروجی دریافت کنید
				* کلید های اصلی که این تابع میشناسد را در زیر میبینید
	HKEY_CLASSES_ROOT
	HKEY_CURRENT_USER
	HKEY_LOCAL_MACHINE
	HKEY_USERS
	HKEY_PERFORMANCE_DATA
	HKEY_CURRENT_CONFIG
	HKEY_DYN_DATA
	HKEY_LOCAL_MACHINE\HARDWARE
	HKEY_LOCAL_MACHINE\SAM
	HKEY_LOCAL_MACHINE\SECURITY
	HKEY_LOCAL_MACHINE\SOFTWARE
	HKEY_LOCAL_MACHINE\SYSTEM
	HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet
	HKEY_USERS\.DEFAULT
	HKEY_USERS\S-1-5-18
	HKEY_USERS\S-1-5-19
	HKEY_USERS\S-1-5-19_Classes
	HKEY_USERS\S-1-5-20
	HKEY_USERS\S-1-5-20_Classes
	HKEY_CURRENT_CONFIG\Software
	HKEY_CURRENT_CONFIG\System
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	MsgBox RegMan.IsMainKey([HKey CURRENT_USER], Empty)
	16 - Is Value
	Format:
	IsValue(HKEY As Hkeys, SubKey As String, ValueName As String, [ValueType As ValueTypes], [ValueData], [CorrectValueData]) As Boolean
	Function	Type	Mode	Description
	IsValue	Boolean	Function	در صورتی که داده مورد نظر کاربر در رجیستری وجود داشته باشد تابع True برمیگرداند در ضمن گزارشی از نوع و مقدار داده میدهد
	HKEY	Hkeys	Input ByVal	Sub Key مسیر متعلق به کلید, داده را اینجا وارد کنید
	SubKey	String	Input ByVal	مسیر و نام کلید, داده مورد نظرتان را اینجا وارد کنید
	ValueName	String	Input ByVal	نام داده ای که میخواهید وجودش بررسی شود
	ValueType	ValueTypes	Output ByRef	اگر داده وجود داشته باشد این قسمت نوع آن را برمیگرداند
	ValueData	Variant	Output ByRef	اگر داده وجود داشته باشد این قسمت مقدار خوانده شده ار رجیستری آن را برمیگرداند
	CorrectValueData	Long	Output ByRef	اگر داده وجود داشته باشد این قسمت مقدار صحیح داده آن را برمیگرداند یعنی در درون این تابع از تابع CorrectValue استفاده شده
	Sample Code:
	Dim DataRead As Variant
	Dim RegMan   As New RegistryMenageJSP.RegistryMenage
	If RegMan.IsValue([HKey CURRENT_USER], "Control Panel\Colors", "ActiveTitle", , , DataRead) Then _
	MsgBox "Active Title Color is " & CStr(RGB(Split(DataRead, " ")(0), _
	Split(DataRead, " ")(1), Split(DataRead, " ")(2)))
	17 - Path to EXPAND_SZ
	Format:
	PathEXPAND_SZ(DataInput As String) As String
	Function	Type	Mode	Description
	PathEXPAND_SZ	String	Function	این تابع مسیر های ورودی را به متغییر های داخلی داده های نوع Expand_SZ تبدیل میکند
	DataInput	String	Input ByVal	مسیری که میخواهید به Expand_SZ تبدیل شود را از اینجا وارد کنید
				* این تابع دقیقا معکوس تابع EXPAND_SZStr عمل میکند یا بهتر است بگوییم مکمل آن است
				* این تابع کلیه رشته هایی که توسط تابع Environ پشتیبانی می شود را, پشتیبانی میکند. به منظور آگاهی از نوع عملکرد خاص این تابع و صحت در بحث خروجی های این تابع به سورس کد آن مراجعه نمایید.
	Sample Code:
	Dim RegMan As New RegistryMenageJSP.RegistryMenage
	MsgBox RegMan.PathEXPAND_SZ(RegMan.EXPAND_SZStr("%SystemRoot%\System32\*.exe"))
	100 OCX JSP - FunctionsJSP V1.5P - RegistryMenageJSP© (RegistryMenageJSP.dll v1.5.0.1) Author: Javad Soltani (JSP) Copyright: 2003 - 2005