12-06-2009, 04:54 PM
بارك ا لله فيكم جميعا
شكرا كثيرا أستاذ لقد جربت المكون TGetDiskSerial.3.0.0 أيضا وغيره كثير...
كل هذه المكونات تعيد نتائج متشابهة، وليس منها من يعيد الرقم التسلسلي الفيزيائي وليس المنطقي (Logic) فهذا الأخير يمكن الحصول عليه بسهولة باستعمال الدالة GetVolumeInformation كما قال أخي me&delphi وكما ذكرت من قبل.
باختصار كل من عنده مكون أو دالة فيقارن نتيجتها مع الـ VBScript السابق، وإن تطابقا فقد وجد الحل
ملاحظة هامة: هناك الكثير من الأقراص (FlashDisk) المتداولة بين الناس ليس لها رقم فيزيائي أو قيمته صفر، يعني لو تجرب VBScript السابق يعطيك القيمة 0 أو 1.
شكرا كثيرا على تعاونكم، ما زال البحث مستمر وسأوافيكم بالجديد إن شاء الله.
شكرا كثيرا أستاذ لقد جربت المكون TGetDiskSerial.3.0.0 أيضا وغيره كثير...
كل هذه المكونات تعيد نتائج متشابهة، وليس منها من يعيد الرقم التسلسلي الفيزيائي وليس المنطقي (Logic) فهذا الأخير يمكن الحصول عليه بسهولة باستعمال الدالة GetVolumeInformation كما قال أخي me&delphi وكما ذكرت من قبل.
باختصار كل من عنده مكون أو دالة فيقارن نتيجتها مع الـ VBScript السابق، وإن تطابقا فقد وجد الحل
ملاحظة هامة: هناك الكثير من الأقراص (FlashDisk) المتداولة بين الناس ليس لها رقم فيزيائي أو قيمته صفر، يعني لو تجرب VBScript السابق يعطيك القيمة 0 أو 1.
شكرا كثيرا على تعاونكم، ما زال البحث مستمر وسأوافيكم بالجديد إن شاء الله.