الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أكتب قيمة Binary في الريجستري

مغلق
بدأه Basrah في 25 ديسمبر 2003 · 7 رد · 1,082 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الرجاء إفادتي بمثال وشرح مفصّل عن طريقة كتابة قيمة Binary في الريجسرتي.

مثلا القيمة: 01 00 00 00

والسلام عليكم ورحمة الله وبركاته

#2

بسم الله الرحمن الرحيم

واخيرا اسنطعت الاتصال بالمنتدي اهلا بكم جميعا عاد ---باتي ---

http://www.arabteam2000.com/ib/index.php?s...=0entry131214

اظنها مقيدة شكرا

تريد الفوز إضغط هنا

اشِهِدي يَا سَمَـا وَاكْتُبَنْ يا وُجـودْ

إنَّـنَـا للِحـمَـا سَنَكُونُ الجُـنُـودْ

فـنَـزيحْ البَـلاَ وَنَـفُـكُّ الْقُيُـودْ

ونَنيلُ الـرِّضـا مِنْ وَفَّى بِالعْهُـودِ

الشيخ عبد الحميد ابن باديس

#3

ياهلا فيك اخوي zekiri abdelali

:)

نورت المنتدى

والرابط اكيد مفيد

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

#4

السلام عليكم ياأخوان

هذا المثال عبارة عن مثال كيفيت تخزين قيمة معينة وهنا

أنا قمت بتخزين قيمة 1 في المفتاح

uses Registry;
procedure DisableTaskManager();
var DTM: Tregistry;
begin
DTM:= tregistry.Create;
DTM.RootKey:= HKEY_CURRENT_USER;
DTM.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\system\',false);
DTM.WriteInteger('DisableTaskMgr',1);
DTM.Free;
#5

بعيد عن الموضوع شوي

لكن في الريجستري :)

تسجيل البرنامج في run بداية تشغيل ويندوز

uses 
  Registry;

تهيئه

procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);
const
  RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    if Registry.OpenKey(RegKey, False) then
    begin
      if bRegister = False then
        Registry.DeleteValue(AppTitle)
      else
        Registry.WriteString(AppTitle, AppName);
    end;
  finally
    Registry.Free;
  end;
end;

تنفيذ

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetAutoStart(ParamStr(0), 'TEST', True);
end;

معلومات عامه :)

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

#6

بسم الله الرحمن الرحيم

اخواني الأكرام... السلام عليكم ورحمة الله وبركاته

ربّما لم تفهموا سؤالي:

أنا أردت كتابة قيم Binary في الريجستري هذا أولاً، وثانياً لا أريد كتابة قيمة Interger وأقصد بالرقم (صفر واحد صفر صفر صفر صفر صفر صفر) 01 00 00 00

ولم يفدني الرابط..

الرجاء من كان لديه أية معلومات عن طريقة كتابة قيمة Binary في الريجستري أن لا يبخل بي عليها.

والسلام عليكم ورحمة الله وبركاته

#7

السلام عليكم

الأخ Basrah

اعتقد ان تسجيل قيمة Binary يتم بنفس طريقة تسجيل اي قيمة عادية .. ولكن بعد تحويل القيمة الى Binary ...

وانضر الى المثال المرفق ربما يفيدك بشئ .

والأخ zekiri abdelali

اهلآ بعودتك بيننا ... ومن طول الغيبات جاب الغنايم .. : )

Ascii_To_Binary.zip

#8

العكس :)

كيف أقدر أحذف مفتاح معين ومعه كل التوابع الخاصه فيه بالريجستري

كمثال HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Alerter

حذف المفتاح كامل وليس قيمه معينه فيه

شكرا

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

هذا الموضوع مغلق.

مواضيع مشابهة