السلام عليكم
قبل كل شيئ احب ان اشكر جميع الاعضاء في هدا المنتدى , واطلب منكم مساعدتي في عملية تكوين key من النوع DWORD في
HKEY_LOCAL_MACHINE حيث اني حاولت عن طريق التالي :
Reg := TRegIniFile.create ('');
Reg.RootKey := HKey_Local_Machine ;
Reg.WriteInteger ('SYSTEM\CurrentControlSet\Services\LanManServer\Parameters', 'AutoShareWks', 0);
Reg.Free;
وقمت باستخدام الدالة CreateRegKey ولكنها تشتغل فقط مع HLEY_CLASSES_ROOT
ولكم مني جزيل الشكر مسبقا
والسلام عليكم
:wacko:
أخي الكريم لي مشاركة في المنتدى تحمل عنوان
"XP Clock برنامج مع الشيفرة"
حمل الشيفرة و ستجد في الشيفرة كيف تتعامل مع الريجستري
الرابط
اللهم صل و سلم على سيدنا محمد
كاف و نون خلقهم و فنائهم كاف و نون
عالمي شاشة و لغتي صفر و واحد
Just Smile ............You can do it
When you stop learning ... You stop leading
لساني بنطقي صامت عنه عادل............وقلبي بصمتي ضاحك منه هازل
وأتـعـب من نـاداك من لا تـجيبـه............وأغـيظ من عـاداك من لا تـشاكـل
مدونتي الشخصية : Tammam Koujan
آخر مواضيع المدونة :
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
السلام عليكم
شكرا لكل الاخوة , ولكني فعلا قمت بالبحث ولم اجد ما يساعدني
ولكن وجدت طريقة الحل
ولكم مني جزيل الشكر مجددا
ومتأسف على اي تعب كنت قد سببت فيه
والسلام عليكم
بسم الله الرحمن الرحيم
( و ما أوتيتم من العلم إلا قليلا )
صدق الله العظيم
بداية السلام عليكم و رحمة الله و بركاته
ذكر الأخ LibyanMan أنه قام بالبحث في المنتدى عن registry و لم يجد ما يفيده و هذا صحيح تماما لأن :
1-الموضوع الأول لا يحتوي على كلمة Registry أبدا
2-الموضوع الثاني يحتوي على الكلمة و لكنها مكتوبة بشكل خاطئ (RegisrtyInDelphi.part1.rar)
موجودة في مشاركة للأخ رومانوف
---------------------------------
و طبعا نحن لسنا أنبياء لنجد ما نريد دون استخدام معايير البحث
فيأتي الاخ DeltaAziz كالعادة ليبدأ بالتأنيب و التهديد لهذا و ذاك (سأحذف - سأغلق -الخ)
و بصراحة اني أكره هذا الأسلوب تماما و ربما هو سبب انقطاعي عن المنتدى لبعض الفترات و البحث في أماكن أخرى
لهذا يا أخ DeltaAziz نشكر مشاركتك القيمة جدا و بصراحة لقد أفدتنا كثيرا و أعطيتنا درس جميل في البحث
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
أعتقد أن مشاركتك لو كانت تحوي شيفرة صغيرة أو فارغة لكان أفضل
أطلت عليكم
شكرا
m.g.s
<_<
تم تعديل هذه المشاركة بواسطة mahmola في 9 ديسمبر 2005 في 19:06
1 2 me and u r alone
1 2 u a i a a
to mahmola
لا أظن أن الأخ DeltaAziz أخطأ ...
يعني انتم بدكم كل شئ جاهز الى ايدكم؟؟؟؟
اقتباس1-الموضوع الأول لا يحتوي على كلمة Registry أبدا
أخي راجع رد الأخ Basrah
اقتباس1. أضف الوحدة Registry في القسم uses.
وفي الكود تجد TRegistry تكررت اكثر من مرة وتجد كلمة ريجستري بالعربية
حتى وان لم يكن موجود شئ عن هذا السؤال في المنتدى ...
الذي وضع السؤال هل جرب وبحث في Delphi Help هناك class كامل اسمه TRegistry يمكن استعماله وهناك امثله مرفقة ايضا..
هناك دوال API يمكن استعمالها يمكن الاطلاع على معلومات عنها في SDK help المرفق مع الدلفي او في موقع MSDN
وبعد هذا كله إن لم يجد حل يا أخي google موجودة و ما اعتقد انه مثل هذا السؤال ما يوجد له حل ...
http://www.google.com/search?hl=zh-CN&q=delphi+registry&lr=
يعني كل واحد قابل مشكلة بسيطة قال أحطها في العرب تيم عشان يجهزوا لي الحل وأنا مرتاح
والاكثر من ذلك أن البعض يريد برامج جاهزة
وبعد ما يجد حل لمشكلته ما نشوفه مرة ثانية الا لو في عنده مشكلة أخرى
يا أخي نحن نقضي الايام والشهور للبحث عن مشكلة قبل أن نضع سؤال ...
والمشكلة ان بعضهم موظفين في شركات وبدهم الحلول على حساب أعضاء العرب تيم
لم أقصد واضع السؤال في كلامي وأتمنى ألا يحدث سوء فهم لقصدي لكن الوضع الحالي في المنتدى سئ ..
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
كان يمكن أن تضيف هذا الرد لتعلم طرق البحث
و لكن ليس الجميع مخضرمين في البحث و البرمجة مثلكم
و أقترح تسمية المنتدى بـ الفريق العربي للبرمجة (للمحترفين فقط )
نحن نتعلم هنا و لا ضرورة أبدا لتجريح بعضنا البعض
حتى لو كنت أعمل في شركة مالمشكلة أن أستفيد
أعتقد أن في ذلك بعض الأنانية
على كل حال شكرا للمحترفين البرمجيين على صبرهم على المبتدئين
0000000000000000000000000000000
m.g.s
تم تعديل هذه المشاركة بواسطة mahmola في 9 ديسمبر 2005 في 19:46
1 2 me and u r alone
1 2 u a i a a
الأخ DeltaAziz معه حق
فالموضوع مكرر بشكل كبير
الموضوع الذي قدمته كان مثالا عمليا لإستخدام الريجستري
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls,registry,shellapi, XPMan;{استخدام الوحدة registry }و اذا نظرنا إلى Form Create سنجد العشرات من عمليات التعامل مع الريجستري
reg := TRegistry.Create;
try
Reg.RootKey :=HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\XPclock', True) then
begin /////////////////////////////////////////////////////////////////
h:=reg.ReadString('formleft');كلنا نريد أن نساعد
لكن من يسأل السؤال عليه أن يساعد نفسه أولا
لا أن يجعل غيره يبحث له عن حل
و يالنسبة لي حتى الآن لم يواجهني اي سؤال إلا و وجدت
عنه الكثير من الحلول من خلال Google
اللهم صل و سلم على سيدنا محمد
كاف و نون خلقهم و فنائهم كاف و نون
عالمي شاشة و لغتي صفر و واحد
Just Smile ............You can do it
When you stop learning ... You stop leading
لساني بنطقي صامت عنه عادل............وقلبي بصمتي ضاحك منه هازل
وأتـعـب من نـاداك من لا تـجيبـه............وأغـيظ من عـاداك من لا تـشاكـل
مدونتي الشخصية : Tammam Koujan
آخر مواضيع المدونة :
cipher كتب:to mahmolaلا أظن أن الأخ DeltaAziz أخطأ ...
يعني انتم بدكم كل شئ جاهز الى ايدكم؟؟؟؟
أخي راجع رد الأخ Basrah
وفي الكود تجد TRegistry تكررت اكثر من مرة وتجد كلمة ريجستري بالعربية
حتى وان لم يكن موجود شئ عن هذا السؤال في المنتدى ...
الذي وضع السؤال هل جرب وبحث في Delphi Help هناك class كامل اسمه TRegistry يمكن استعماله وهناك امثله مرفقة ايضا..
هناك دوال API يمكن استعمالها يمكن الاطلاع على معلومات عنها في SDK help المرفق مع الدلفي او في موقع MSDN
وبعد هذا كله إن لم يجد حل يا أخي google موجودة و ما اعتقد انه مثل هذا السؤال ما يوجد له حل ...
http://www.google.com/search?hl=zh-CN&q=delphi+registry&lr=
يعني كل واحد قابل مشكلة بسيطة قال أحطها في العرب تيم عشان يجهزوا لي الحل وأنا مرتاح
والاكثر من ذلك أن البعض يريد برامج جاهزة
وبعد ما يجد حل لمشكلته ما نشوفه مرة ثانية الا لو في عنده مشكلة أخرى
يا أخي نحن نقضي الايام والشهور للبحث عن مشكلة قبل أن نضع سؤال ...
والمشكلة ان بعضهم موظفين في شركات وبدهم الحلول على حساب أعضاء العرب تيم
لم أقصد واضع السؤال في كلامي وأتمنى ألا يحدث سوء فهم لقصدي لكن الوضع الحالي في المنتدى سئ ..
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
يوجد عشراات عشراات المشاركات و كلها مليئ بـ TRegistry و لكنها ليست المطلوبة
تم تعديل هذه المشاركة بواسطة mahmola في 9 ديسمبر 2005 في 19:56
1 2 me and u r alone
1 2 u a i a a
حتى لا نخرج عن هدف المنتدى العلمي و يصبح الموضوع
مدخلا لمهاترات شخصية دعونا نحل المسألة
أخي
اولا اضف الوحدة Redistry إلى اقسم Uses
ثم إليك الدالات التالية
//////////////////////////////////Load String From Registry function LoadStringFromRegistry(sKey, sItem, sDefVal : string ): string; var reg :TRegIniFile; begin reg := TRegIniFile.Create(sKey ); Result := reg.ReadString( '', sItem, sDefVal ); reg.Free; end; ////////////////////////////////// Save String To Registry procedure SaveStringToRegistry(sKey, sItem, sVal : string ); var reg : TRegIniFile; begin reg := TRegIniFile.Create( sKey ); reg.WriteString( '', sItem, sVal + #0 ); reg.Free; end;
الاولى للقراءة من الريجستري
المتحول sDefVal هو قيمة افتراضية تضعها انت بحيث تعود بها الدالة اذا لم يكن المفتاح موجودا
الثانية للكتابة في الريجستري
الاستخدام
var regtemp:string; // a temporary parameter to put value that
// we read from registry in it
Begin
regtemp := LoadStringFromRegistry('Software\YourKey\YourValue',
'backcolor','15448477');
Panel1.Color:=strtoint(regtemp);
end;تم تعديل هذه المشاركة بواسطة Tammam Koujan في 9 ديسمبر 2005 في 20:15
اللهم صل و سلم على سيدنا محمد
كاف و نون خلقهم و فنائهم كاف و نون
عالمي شاشة و لغتي صفر و واحد
Just Smile ............You can do it
When you stop learning ... You stop leading
لساني بنطقي صامت عنه عادل............وقلبي بصمتي ضاحك منه هازل
وأتـعـب من نـاداك من لا تـجيبـه............وأغـيظ من عـاداك من لا تـشاكـل
مدونتي الشخصية : Tammam Koujan
آخر مواضيع المدونة :
اقتباسيوجد عشراات عشراات المشاركات و كلها مليئ بـ TRegistry و لكنها ليست المطلوبة
يعني تريد الحل جاهز من الألف الى الياء دون أدنى تعب
لم نقل أن الحل موجود مباشرة في تلك المشاركات او في delphi help لكن عليك بقراءة تلك المواضيع و ايجاد الحل من الامثلة هناك...
يعني الـ methods الموجودة في TRegistry مو كافية
CreateKey
DefaultHandler
DeleteKey
DeleteValue
GetDataInfo
GetDataSize
GetDataType
GetInterface
GetInterfaceEntry
GetInterfaceTable
GetKeyInfo
GetKeyNames
GetValueNames
KeyExists
LoadKey
OpenKey
OpenKeyReadOnly
ReadBinaryData
ReadBool
ReadCurrency
ReadDate
ReadDateTime
ReadFloat
ReadInteger
ReadString
ReadTime
RegistryConnect
RenameValue
ReplaceKey
RestoreKey
UnLoadKey
ValueExists
WriteBinaryData
WriteBool
WriteCurrency
WriteDate
WriteDateTime
WriteExpandString
WriteFloat
WriteInteger
WriteString
WriteTime
ما علينا ... ليس لدي الوقت للمناقشة في هذه الأمور التي لن تتغير وستظل تتكرر ..
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
mahmola كتب:فيأتي الاخ DeltaAziz كالعادة ليبدأ بالتأنيب و التهديد لهذا و ذاك (سأحذف - سأغلق -الخ)و بصراحة اني أكره هذا الأسلوب تماما و ربما هو سبب انقطاعي عن المنتدى لبعض الفترات و البحث في أماكن أخرى
أخي بحثت ووجدت أكثر من موضوع به الإجابة عن السؤال فوق
ووضعت رابطين كمثال وبداية الطريق للعضو الذي وجد ظالته
أخي من مهام الإشراف حذف المواضيع المكررة
وأشكرمشاركتك القيمة التي أفدتنا بها
و مبروك أول إنذار
السلام عليكم
والله انا متأسف , ما كنت اريد ان يتحول النقاش الى عراك , والكلمة الطيبة صدقة
ومتأسف مجددا ومعاكم الحق ايه الاخوة ( محترفي الدلفي ) بس والله ما كان قصدي انه اجد الحل بسهولة وبدون تعب فالعاية في الاخير هي التعلم
ومتأسف مرة أخرى وشكرا مجددا
والسلام عليكم
:D والرجستري وش هو ,,, امزح :D
هذا الموضوع مغلق.