قراءة السيريل للاقراص

السلام عليكم ورحمة الله وبركاته

أخي delmazen تفضل هذه الدالة التي تمكنك من قراءة السريل لأي قرص من الأقراص ، مثلا الفلاش دسك عندك هو f:

function GetHardDiskSerial(const DriveLetter: Char): string; 
var
  NotUsed:	 DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
	nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
	VolumeFlags, nil, 0);
  Result := Format('Label = %s   VolSer = %8.8X',
	[VolumeInfo, VolumeSerialNumber])
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetHardDiskSerial('f'));
end;

لكن عند نقلك للبرنامج إلى كمبيوتر آخر، قد يتبدل الحرف مثلا من F إلى G أو H ....

لمعرفة ذلك إستعمل الدالة التالية :

for Drive := 'D' to 'Z' do
 if GetDriveType(pansichar(drive+':/'))=DRIVE_REMOVABLE
 then

أرجوا أن أرى تطبيقك لهذه الأمثلة، وإذا واجهتك أي مشاكل فنحن في الخدمة

والله الموفق ... والسلام عليكم ورحمة الله

السلام عليكم

اخواني الكرام

هل يمكن تغيير السيريال للجهارد دسك ؟

اذا كان الجواب نعم : كيف يمكن الحصول علي الرقم الذي لا يتغير للهارد دسك ؟؟؟؟

السؤال مكرر كثيرا...يوجد الجواب في 3 مواضيع سابقة على الاقل

مشكور علىالاجابة اخي