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

السلام عليكم

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

عندي سؤال

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

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

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

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

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

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

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

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

OK اخي Rober

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

والجديد هو :

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

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

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

mhSysInfo.rar

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

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

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

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

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

اخوك محمد

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

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

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

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

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

اقتباس

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

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

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

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

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

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

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

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

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

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

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

اخوكم محمد

+++++

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

+++++

mhSysInfo2.rar

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

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

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

الجديد :

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

----

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

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

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

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

-----------

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

اخوكم محمد

mhSysInfo.rar

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

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

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

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

شكرا

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

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;

الجديد :

بناء على طلب الاخ 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;

mhSysInfo.rar

الجديد :

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

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

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

mhSysInfo.rar

mohfa كتب:

الجديد :

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

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

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

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

و دماغي ( Server is busy )

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

اقتباس

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

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

جزاك الله خيراً .. وفقك لما يحبه ويرضاه .

الجديد :

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

ملاحظة : التغييرلن يتم إلا بأخذ البرمتر 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;

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

mhSysInfo.rar

الجديد :

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

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

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

mhSysInfo.rar

هل يمكن توفير المصدر ؟