06-01-2013, 03:56 PM
كيف معرفة الرقم التعريفي للوحة الام باستعمال لغة الديلفي ،
هل هي تابعة للوينداوز أم الديلفي أم لها علاقة بالأجهزة وشكرا مسبقا.
هل هي تابعة للوينداوز أم الديلفي أم لها علاقة بالأجهزة وشكرا مسبقا.
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي
كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي
|
كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي
|
06-01-2013, 04:39 PM
السلام عليكم
PHP كود : uses:WbemScripting_TLB ثم Import type library كود : Function GetMotherBoardSerial:string;
var
x:ISWbemLocator;
xs:ISWbemServices;
os:ISWbemObjectSet;
e:IEnumVariant;
c:cardinal;
i:integer;
v,v1:OleVariant;
w:WideString;
begin
x:=CoSWbemLocator.Create;
xs:=x.ConnectServer('.','root/cimv2','','','','',0,nil);
os:=xs.InstancesOf('Win32_BaseBoard',0,nil);
e:=IEnumVariant(os._NewEnum);
w:='';
while e.Next(1,v,c)=S_OK do
begin
if not(w='') then w:=w+' ';
w:=w+VarToWideStr(v.SerialNumber);
Result:='baseboard='+VarToWideStr(v.Description)+
#13#10'Manufacturer='+VarToWideStr(v.Manufacturer) +
#13#10'Model='+VarToWideStr(v.Model)+
#13#10'Version='+VarToWideStr(v.Version)+
#13#10'Product='+VarToWideStr(v.Product)+
#13#10'SerialNumber='+VarToWideStr(v.SerialNumber) ;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(GetMotherBoardSerial);
end;
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
06-01-2013, 09:00 PM
السلام عليكم
+ إذا تعمل بالويندوز فقط يمكنك إستعمال الـ wmi ـ (2000 وما بعده الإصدارات السابقة تتطلب تنصيب) http://www.delphi4arab.net/forum/showthr...p?tid=2373 كود : http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
09-01-2013, 01:55 PM
أولا أشكر كل الاخوة الذين تفضلوا وأجابوني على هذا السؤال ، ولكن للاسف الحل عندي لم يفلح.
يصل عند التعليمة التالية ويقوم باظهار رسالة الخطأidentificateur non déclare "e:=IEnumVariant(os._NewEnum)" شكرا مسبقا لكم. |
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم