+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي (/showthread.php?tid=4849)
كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي - said281980 - 06-01-2013
كيف معرفة الرقم التعريفي للوحة الام باستعمال لغة الديلفي ،
هل هي تابعة للوينداوز أم الديلفي أم لها علاقة بالأجهزة وشكرا مسبقا.
كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي - لؤي - 06-01-2013
السلام عليكم
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;كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي - Lam.Abdeldjalil - 06-01-2013
السلام عليكم
+ إذا تعمل بالويندوز فقط يمكنك إستعمال الـ wmi ـ (2000 وما بعده الإصدارات السابقة تتطلب تنصيب)
http://www.delphi4arab.net/forum/showthread.php?tid=2373
كود :
http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/كيف يتم تحديد الرقم التعريفي للوحة الأم بالديلفي - said281980 - 09-01-2013
أولا أشكر كل الاخوة الذين تفضلوا وأجابوني على هذا السؤال ، ولكن للاسف الحل عندي لم يفلح.
يصل عند التعليمة التالية ويقوم باظهار رسالة الخطأidentificateur non déclare
"e:=IEnumVariant(os._NewEnum)"
شكرا مسبقا لكم.