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

كيف يتم تسجيل الSkin عبر ال Regedit

مغلق
بدأه m-anas في 10 أكتوبر 2004 · 1 رد · 649 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف يمكن تسجيل الـ Skin عبر الـ Regedit

أرجو كتابة الطريقة بالتفصيل لعدم خبرتي الكبيرة في التعامل مع الـ Regedit

وسأكون لكم من الشاكرين

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

الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله

صدق الله العظيم

#2

مرحبااااا

1: كتابة في المحرر

2: قرائه من المحرر

أولا وقبل كل شي

في uses نضيف Registry

في var نضيف Reg: TRegistry;

نبدأ

1:

Reg := TRegistry.Create();
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.CreateKey('Software\programsk');
  Reg.OpenKey('Software\programsk', FALSE);
  Reg.WriteString('الشكل', ExtractFilePath(ParamStr(0))+'mxp2.skn'); //a
  Reg.Free();

a: إمتداد ملف الـ skin ولنفرض اسمه 'mxp2.skn' وموجود بمجلد البرنامج

2:

Reg := TRegistry.Create();
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\programsk', FALSE);
  if (Reg.ValueExists('الشكل')) then BEGIN
  frmmain.SkinData1.LoadFromFile(Reg.ReadString('الشكل'));  //b
  frmmain.SkinData1.Active:=true;
  Reg.Free();
  end;

b: تحميل ملف الـ skin للأداة بمعرفة مسار الملف من محرر التسجيل

..

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

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

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

/

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

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

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

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

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

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