Virtual Drive

بدأه MMA_EG_Cairo في 19 سبتمبر 2010 · 3 رد · 686 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#119 سبتمبر 2010 في 04:11 صاحب الموضوع

الأخوة والأخوات

أعضاء المنتدي الكرام

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

أتمني أن تكونوا جميعاً بخير وبصحة جيداً ... أما بعد

من المعروف أن هناك العديد من البرامج الموجودة في سوق العمل والمنتشرة علي صفحات الويب

والتي تخدم العميل في حالة رغبتة لصناعة إسطوانة وهمية

من أهم هذه البرامج وأشهرهم هم

VirtualDrive

DAEMON Tools

Alcohol

Virtual CloneDrive

Virtual CD-ROM Control

Power ISO

بل هناك أنوع أخري كثير جداً من تلك الأنواع التي تخدم العملاء لصناعة إسطوانات وهمية

ولكن سؤالي في هذا الموضوع

كيف يمكنني معرفة إن كان هناك فعلاً إسطوانة وهمية مدرجة في My Computer أم لا

بغض النظر عن البحث عن نوع محدد من تلك البرامج لكل هذه الأنواع

فهل هناك طريقة معينة سواء كانت بإستخدام الـ API أو بإستخدام مسجل النظام لمعرفة إن كان هناك إسطوانة وهمية بالفعل أم لا ؟؟؟

شكراً لكم جميعاً وأتمني مساعدتكم لي

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

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#219 سبتمبر 2010 في 04:49

نعم اخي توجد API تعيد نوع القرص وهي GetDriveType ولكن للاسف لا تميز ان كان القرص وهمي ام حقيقي .

هذا مثال

Private Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Const DRIVE_UNKNOWN As Long = 1
Const DRIVE_REMOVABLE As Long = 2
Const DRIVE_FIXED As Long = 3
Const DRIVE_REMOTE As Long = 4
Const DRIVE_CDROM As Long = 5
Const DRIVE_RAMDISK As Long = 6

Private Sub Command1_Click()
Select Case GetDriveType("c:")
Case DRIVE_UNKNOWN
MsgBox "The drive type cannot be determined"

Case DRIVE_REMOVABLE
MsgBox "The disk can be removed from the drive."

Case DRIVE_FIXED
MsgBox "The disk cannot be removed from the drive."

Case DRIVE_REMOTE
MsgBox "The drive is a remote (network) drive."

Case DRIVE_CDROM
MsgBox "The drive is a CD-ROM drive."

Case DRIVE_RAMDISK
MsgBox "The drive is a RAM disk."
End Select
End Sub

تحياتي

OMANI FOR EVER

-------------------------------------------------

#319 سبتمبر 2010 في 13:53

omani كتب:

نعم اخي توجد API تعيد نوع القرص وهي GetDriveType ولكن للاسف لا تميز ان كان القرص وهمي ام حقيقي .

هذا مثال

Private Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Const DRIVE_UNKNOWN As Long = 1
Const DRIVE_REMOVABLE As Long = 2
Const DRIVE_FIXED As Long = 3
Const DRIVE_REMOTE As Long = 4
Const DRIVE_CDROM As Long = 5
Const DRIVE_RAMDISK As Long = 6

Private Sub Command1_Click()
Select Case GetDriveType("c:")
Case DRIVE_UNKNOWN
MsgBox "The drive type cannot be determined"

Case DRIVE_REMOVABLE
MsgBox "The disk can be removed from the drive."

Case DRIVE_FIXED
MsgBox "The disk cannot be removed from the drive."

Case DRIVE_REMOTE
MsgBox "The drive is a remote (network) drive."

Case DRIVE_CDROM
MsgBox "The drive is a CD-ROM drive."

Case DRIVE_RAMDISK
MsgBox "The drive is a RAM disk."
End Select
End Sub

تحياتي

أشكرك كل الشكر أخي الكريم علي إستجابتك لي

ولكن في الحقيقة أنا لم أقصد هذا الكود علي الأطلاق

فالكود المرسل يحدد نوع Drive محدد إن كان CD-ROM أو HDD أو FDD أو Flash

ولكن طلبي لو كان الإسطوانة CD-ROM .. وكانت إسطوانة وهمية .. هل هناك طريقة أياً كانت تمكنني من معرفة نوع السواقة بالضبط ؟؟؟

شكراً لك مرة أخري

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

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان