' in general
Private Function regwrite(key1, sval As String)
Set wshshell = CreateObject("wscript.shell")
wshshell.regwrite key1, sval
End Function
' IN FORM LOAD
Private Sub Form_Load()
Dim AppPath As String
Dim AppTitel As String
Dim StrRegval As String
AppTitel = App.Title
AppPath = App.Path
StrRegval = AppPath & "\" & AppTitel & ".exe"
regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Stringvalurname ", StrRegval
End Subابراهيم الطيب
السودان الخرطوم
تم تعديل هذه المشاركة بواسطة إبراهيم الطيب في 17 مارس 2005 في 19:34
نعم هذه الطريقة هي اسهل من ال win32 API for Registry
و تستطيع ان تستخدم RegRead للقراءة
Dim Value as string value = wshshell.RegRead (PathtoKey)
راكان الحنيطي
Be Open Source
لا تنسوا طريقة saveSetting ، getsetting
وبرأيي هي الأسهل على الإطلاق
الاخوان الاعزاء
Maverick و مهند عبادي
شكر ا
الاخ مهند عبادي
ياريت مثال
و لكم خالص الشكر
ابراهيم الطيب
السودان الخرطوم
ال SaveSetting وال GetSetting هي أسهل طريقة للحفظ والاسترجاع من الريجستري، ولكنها لا تنفع في هذه الحالة، لأن هذه الوظائف محصورة في مكان معين في الريجستري، ولا يمكنك التحكم في المكان الذي تريد الحفظ إليه أو الاسترجاع منه ..
شكرا لكل من افادنا
ومثلما قال الاخ إبراهيم الطيب
مثال لكى يوضح اكثر
أجمل من الورد
و أحلى من الشهد
ولا تحتاج إلى جهد
سبحان الله و بحمده
هذا الموضوع مغلق.
