Forum > Arabic
رقم تسلسلي للقرص الصلب
Al-Eid:
السلام عليكم
بحثت عن كيفية إيجاد الرقم التسلسلي للقرص الصلب فوجدة في هذا المنتدى موضوع تحدث عن هذه الوحدة
hddinfo ولكن لم أعرف طريقة إستعمالها
ممكن شرح طريقة إستعمالها مع العلم أنها في المرفق
KodeZwerg:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program Project1; {$APPTYPE CONSOLE} uses Windows, SysUtils; function GetVolumeID(DriveChar: Char): string;var MaxFileNameLength, VolFlags, SerNum: DWord;begin if GetVolumeInformation(PAnsiChar(DriveChar + ':\'), nil, 0, @SerNum, MaxFileNameLength, VolFlags, nil, 0) then begin Result := IntToHex(SerNum, 8); Insert('-', Result, 5); end else Result := '';end; procedure GetHardDriveSerialNumbers;var C: Char; S: string;begin for C := 'C' to 'Z' do begin S := GetVolumeID(C); if S <> '' then WriteLn('Drive ', C, ': ', S); end;end; begin GetHardDriveSerialNumbers; ReadLn;end.
Al-Eid:
--- Quote from: KodeZwerg on August 17, 2023, 04:37:32 pm ---
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program Project1; {$APPTYPE CONSOLE} uses Windows, SysUtils; function GetVolumeID(DriveChar: Char): string;var MaxFileNameLength, VolFlags, SerNum: DWord;begin if GetVolumeInformation(PAnsiChar(DriveChar + ':\'), nil, 0, @SerNum, MaxFileNameLength, VolFlags, nil, 0) then begin Result := IntToHex(SerNum, 8); Insert('-', Result, 5); end else Result := '';end; procedure GetHardDriveSerialNumbers;var C: Char; S: string;begin for C := 'C' to 'Z' do begin S := GetVolumeID(C); if S <> '' then WriteLn('Drive ', C, ': ', S); end;end; begin GetHardDriveSerialNumbers; ReadLn;end.
--- End quote ---
لقد لاحظت إنه يعمل مع تقسيمات القرص ولكن أبحث عن رقم التسلسلي للقرص كاملا إذا أمكن
KodeZwerg:
Demo attached
Al-Eid:
--- Quote from: KodeZwerg on August 23, 2023, 08:45:54 am ---Demo attached
--- End quote ---
يتوقف عند رقم 2 أنظر للصورة في المرفقات
Navigation
[0] Message Index
[#] Next page