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

معرفة خصائص النظام

رائج
بدأه mohfa في 1 ديسمبر 2008 · 56 رد · 17,774 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم :

لقد انشأت هذا المكون والذي يمكن إستعماله في إيجاد بعض خصائص النظام :

- إسم المستعمل

- إسم الجهاز

- إسم ونسخة الوندوز المستعملة ... إلخ

-معرفة خصائص الإعدادات الإقليمية

وستكون هناك خصائص اخرى في المستقبل إن شاء الله .

اخوكم محمد

وهذه صورة للمكون

post-36253-1228158749_thumb.jpg

mhSysInfo.rar

تم تعديل هذه المشاركة بواسطة Swift في 7 ديسمبر 2008 في 02:45

1

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#2

السلام عليكم

بصراحة لا أحب كلمات الشكر و المدح لكنك قمت بعمل جميل جدا تستحق عليه أكثر من الشكر الله يعطيك كل العافية

عندي سؤال

هل المكون يستخدم فقط لمعرفة المواصفات أم يمكن التعديل على الخصائص بإستخدامه ؟؟

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#3

اخي Rober هل تريد ان نقوم بإظافة خاصية تمكين التعديل :wink:

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#4

إن أمكن عمل ذلك فلا ضير من ذلك و منه نعمل شيء جديد

بصراحة أنا كنت منتظر الدورة التدريبية

لكن لا ضرر من التجربة قبل البدء بها :wink: ممكن يطلع معي شيء مفيد

بما أنك وصلت لمعرفة معلومات النظام فأصبحت عملية التعديل بسيطة و لا أنا مخطء

كنت أتعامل مع خصائص النظام من قبل عن طريق مكون جاهز مشابه لمكونك تماماً لكني أستغنيت عنه بسبب تعارضه مع Alpha Control

لو فيني أساعد بأي شيء أنا جاهز مع العلم أني لا أملك الخبرة الكافية بالتعامل مع النظام :blush:

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#5

OK اخي Rober

هذه نسخة جديدة :

والجديد هو :

+ إظافة خاصية معرفة هل المستعمل Admin

+ معرفة هل اللغة العربية مثبتة في النظام ام لا .

نريد إقتراحات الإخوة الاعضاء

mhSysInfo.rar

1

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#6

نسيت أن أسأل أخي mohfa ما الأصدارت لذي يعمل عليه المكون ؟

هل يعمل على محبوبي Delphi5 ؟

ترقب مني الأسئلة و الأقتراحات إن وجد

تم تعديل هذه المشاركة بواسطة rober في 2 ديسمبر 2008 في 02:55

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#7

اخي rober انا لم اجربه على غير الدلفي 7 , ولكن على العموم لن تكون هناك إشكالية .

ومرحبا بكل الأسئلة و الأقتراحات.

اخوك محمد

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#8

بالنسبة للدلفي 5 :S لم تعمل

بالنسبة لتغيير الخصائص وجدت SetComputerName في مكتبة Windows ما رأيك أن نضيفها كخاصية يستخدمها المبرمج برمجيا عن الحاجة لها ؟ :resentful:

وسأحاول أيجاد و البحث عن تعديلات أخرى يمكن أن يقوم بها المكون غير العرض

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#9

لامشكل اخي Rober إن كانت تعمل .

ولكن هنا في رأي انه من الواجب إظافة Confirmation Messages and Dialogs وذلك لإستعمالها عند تغيير ايا من الإعدادت في النظام .

اقتباس
بالنسبة للدلفي 5 لم تعمل

إذن لم تجربها :blush:

تم تعديل هذه المشاركة بواسطة mohfa في 2 ديسمبر 2008 في 03:28

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#10

لن أستطيع تجربة الـ component لكن فقط للعلم بالشئ.. على ماذا اعتمدت في جلب المعلومات.. win32 api أم wmi أم registry أم ماذا؟

#11

شكرا اخي hazzoom إعتمدت على win32 API

واظن انني سوف احتاج الى wmi و registry في التنقيحات القادمة .

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#12

يمكن الأعتماد على مكتبة جاهزة في دلفي تسمى بـ Windows

و يمكن الأعتماد على

http://msdn.microsoft.com/en-us/library/ms724930(VS.85).aspx

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#13

نسخة جديدة والجديد :

+ معرفة نسخة الاوفيس المثبتة

+معرفة نسخة ال DirectX المثبتة

اخوكم محمد

+++++

اخي rober هل بدات في إجرائيات الإضافة و التغيير ؟

+++++

post-36253-1228242163_thumb.jpg

mhSysInfo2.rar

1

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#14

اتمنى لك المزيد من التوفيق

هل يمكنك اضافة اظهار رقم الهاردديسك الفيزيائي او ان كان هناك رقم للمعالج او اللوحة الرئيسة عندها سيكون هناك استعمال مفيد جدا للمكون

وبالتوفيق ان شاء الله

تم تعديل هذه المشاركة بواسطة moa mohsen في 3 ديسمبر 2008 في 04:01

#15

الجديد :

+ معرفة هل ال محرك ال BDE مثبت ام لا

----

اخي moa mohsen سيكون هناك تنقيحات وإظافات جديدة إن شاء الله

الشئ الذي طلبته في رائ :

للحصول على ال HDD physical serial number إما ان تكون ADMIN للحصول عليه او نستعمل إستعلامات ال WMI او إستعمال VXD .

سوف نرى إن شاء الله

-----------

دائما ننتظر تفاعل الإخوة الاعضاء.

اخوكم محمد

mhSysInfo.rar

1

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#16

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

كيف اعرف اصدار Office لدي

والله انا جدا مشغول في ISAPI و EXCEL OLE مع الدلفي لذلك ليس عندي القت الكامل لتجربته لكن مبروك علنا هذا المكون

اريد ان توضح لو سمحت اخي موحفا الطريقة التي استعملتها معرفة اصدار الافيس

شكرا

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 3 ديسمبر 2008 في 18:23

#17

اخي عبد العالي , انا إستعملت مفاتيح الريجستري :

type
// TMSOfficeVer=(mo2007,mo2003,moXP,mo2000,mo97,mo95,moNone{no office installed});

function TmhInsApp.GetMsOfficeVer:Integer;
var
  Reg : TRegistry;
begin
  if FVer=0 then
  begin
	Result :=0;
	Reg := TRegistry.Create;
	try
	  Reg.RootKey := Windows.HKEY_CURRENT_USER;
	  if Reg.OpenKey('\Software\Microsoft\Office\12.0',false) then
		Result :=12 //--> mo2007
 else if Reg.OpenKey('\Software\Microsoft\Office\11.0',false) then
		Result :=11 //--> mo2003
 else if Reg.OpenKey('\Software\Microsoft\Office\10.0',false) then
		Result :=10 //--> moXP
 else if Reg.OpenKey('\Software\Microsoft\Office\9.0',false) then
		Result :=9 //--> mo2000
 else if Reg.OpenKey('\Software\Microsoft\Office\8.0',false) then
		Result :=8//--> mo97
 else if Reg.OpenKey('\Software\Microsoft\Office\7.0',false) then
		Result :=7; //--> mo95
	  Reg.CloseKey;
	finally
	  Reg.Free;
	end;
	FVer := Result;
  end
  else
	Result :=FVer;
end;

تم تعديل هذه المشاركة بواسطة mohfa في 3 ديسمبر 2008 في 21:25

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#18

الجديد :

بناء على طلب الاخ rober , فلقد تم إظافة خاصية التغيير في بعض إعدادات النظام وهذا لكي لايستعمل المكون في معرفة الإعدادات فقط بل حتى في تغييرها مع ضرورة ان يكون المستعمل Admin .

مثال :

procedure TForm1[color= #66cc66;].Button1Click[color= #66cc66;](Sender: TObject[color= #66cc66;]);

Const

eNoAdminPriv[color= #66cc66;]=[color= #ff0000;]'You don'[color= #ff0000;]'t have Admin privilege !';

iScd[color= #66cc66;]=[color= #ff0000;]'PC renaming succeeded  will take effect upon next PC restart !';

begin

[color= #66cc66;]// PC Renaming

[color= #993333; font-weight: bold;]WITH mhSysInfo1 do

[color= #993333; font-weight: bold;]IF [color= #993333; font-weight: bold;]NOT[color= #66cc66;](IsAdmin[color= #66cc66;]) Then

begin

MessageDlg[color= #66cc66;](eNoAdminPriv[color= #66cc66;],mtError[color= #66cc66;],[color= #66cc66;][MbOk[color= #66cc66;]][color= #66cc66;],[color= #cc66cc;]0[color= #66cc66;]);

exit;

end

else

[color= #993333; font-weight: bold;]IF SetComputerName[color= #66cc66;]([color= #ff0000;]'My_New_PC_Name'[color= #66cc66;])then

MessageDlg[color= #66cc66;](iScd[color= #66cc66;],mtInformation[color= #66cc66;],[color= #66cc66;][mbOk[color= #66cc66;]][color= #66cc66;],[color= #cc66cc;]0[color= #66cc66;])

end;

post-36253-1228329380_thumb.jpg

mhSysInfo.rar

تم تعديل هذه المشاركة بواسطة mohfa في 3 ديسمبر 2008 في 22:23

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#19

الجديد :

معرفة هل ال MSWord , MSEXCEL , MSOutlook MSAccess,MSPowerPoint,MSInfoPath,MSPublisher مثبتة ؟

نريد مشاركة الاعضاء فالمكون مفتوح المصدر .

صورة عن التحديث :

post-36253-1228352997_thumb.jpg

mhSysInfo.rar

تم تعديل هذه المشاركة بواسطة mohfa في 4 ديسمبر 2008 في 04:11

1

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#20
mohfa كتب:
الجديد :

بناء على طلب الاخ rober , فلقد تم إظافة خاصية التغيير في بعض إعدادات النظام وهذا لكي لايستعمل المكون في معرفة الإعدادات فقط بل حتى في تغييرها مع ضرورة ان يكون المستعمل Admin .

أخ mohfa اكرمك الله و زادك من علمه

بصراحة أنا مقصر في الموضوع لأني كلما عدت للأوامر أفتح صفحة نت و أفجر نفسي من البطء الشديد :angry: :wacko: :S :blink:

فأعود لبحر ISA و أغرق فيه

و دماغي ( Server is busy )

هل تقصد بـ Admin = Administrator أم Admin = Administrators ؟؟

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#21
اقتباس
هل تقصد بـ Admin = Administrator أم Admin = Administrators ؟؟

الاخ rober اقصد بال Admin ان يكون المستعمل الحالي والذي يريد التغيير في الإعدادات يملك administrator privilege اي من مجموعة ال Administrators

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#23

الجديد :

إمكانية التغيير في الإعدادات الإقليمية .

ملاحظة : التغييرلن يتم إلا بأخذ البرمتر AContinue القيمة True

يعني مثلا انه يمكن طرح سؤال :

سوف يتم التغيير في إعدادات صيغة الوقت -Time Format - في الجهاز هل انت موافق ؟

هنا يجب ان يكون الرد بالموافقة لتتم عملية التغيير .

مثال :

 

procedure TForm1[color= #66cc66;].Button1Click[color= #66cc66;](Sender: TObject[color= #66cc66;]);

var

ACont:[color= #993333; font-weight: bold;]BOOLEAN; [color= #66cc66;]// [color= #808080; font-style: italic;]-->  يجب ان يأخذ هذا البرمتر القيمة True  

begin

ACont:[color= #66cc66;]=MessageDlg[color= #66cc66;]([color= #ff0000;]'are u sure'[color= #66cc66;],mtConfirmation[color= #66cc66;],[color= #66cc66;][MbYes[color= #66cc66;],MbNo[color= #66cc66;]][color= #66cc66;],[color= #cc66cc;]0[color= #66cc66;])[color= #66cc66;]=MrYes;

[color= #993333; font-weight: bold;]IF mhSysInfo1[color= #66cc66;].SetTimeSep[color= #66cc66;](ACont[color= #66cc66;],[color= #ff0000;]'-'[color= #66cc66;])then

ShowMessage[color= #66cc66;]([color= #ff0000;]'Operation Succeeded'[color= #66cc66;])

else

ShowMessage[color= #66cc66;]([color= #ff0000;]'Operation faild '[color= #66cc66;])

end;

صورة للتحديث :

post-36253-1228416987_thumb.jpg

mhSysInfo.rar

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#24

الجديد :

إيجاد كل الطابعات المثبتة .

صورة عن التحديث :

post-36253-1228446490_thumb.jpg

ماهذا يااصحاب لاتنسوا انه في الحركة بركة

mhSysInfo.rar

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

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