+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخراج الرقم التسلسلي للقرص الصلب (/showthread.php?tid=3515)
استخراج الرقم التسلسلي للقرص الصلب - wadoud - 19-10-2011
السلام عليكم
ما رأيكم في هّذه الدالة لاستخراج الرقم التسلسلي للقرص الصلب :
كود :
function GetVolumeID(DriveChar: Char): String;
var
MaxFileNameLength, VolFlags, SerNum: DWord;
begin
if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
@SerNum, MaxFileNameLength, VolFlags, nil, 0)
then
begin
Result := IntToHex(SerNum,8);
Insert('-', Result, 5);
end
else
Result := '';
end;كود :
Label1.Caption:=GetVolumeId('c');
السلام عليكمLabel1.Caption:=GetVolumeId('c');
Label1.Caption:=GetVolumeId('c');استخراج الرقم التسلسلي للقرص الصلب - محمد عبد العزيز - 19-10-2011
وعليكم السلام ورحمة الله
ذلك ليس التسلسلي للقرص الصلب و هو يتغير مع كل تهيئة للقرص
راجع كل من
http://www.delphi4arab.net/forum/showthread.php?tid=968
http://www.delphi4arab.net/forum/showthread.php?tid=4240
http://www.delphi4arab.net/forum/showthread.php?tid=5825
استخراج الرقم التسلسلي للقرص الصلب - wadoud - 20-10-2011
و عليكم السلام و رحمة الله و بركاته
أخي الكريم اشكرك لقد لفت انتباهي الى امر هام .
لا تبخل علينا من علمك
السلام عليكم