تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لمعرفة جميع ال Drivers الموجودة في جهاز الكومبيوتر
#1
كاتب الموضوع : AhmedEssawy

يختص هذا الأمر بالعودة بجميع (السواقات ) Drivers الموجودة في جهازك ، وبدلالة أرقام معينة سيتم توضيحها بعد ضمن الكود باستخدام جملة Select Case .

في الجينرال :


كود :
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" _
(ByVal lpRootPathName As String, lpSectorsPerCluster As Long, _
lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, _
lpTtoalNumberOfClusters As Long) As Long

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Const DRIVE_CDROM = 5
Const DRIVE_FIXED = 3
Const DRIVE_RAMDISK = 6
Const DRIVE_REMOTE = 4
Const DRIVE_REMOVABLE = 2
والأمر :


كود :
Dim driveType As Long
Dim freeSpace As Long
Dim Sectors As Long
Dim Bytes As Long
Dim freeClusters As Long
Dim totalClusters As Long
Dim retValue As Long
Dim buffer As String * 255
driveType = GetDriveType(Drive1.Drive & "\")
Select Case driveType
Case 0
Label5.Caption = "UNDETERMINED"
Case 1
Label5.Caption = "NO ROOT"
Case DRIVE_REMOVABLE
Label5.Caption = "REMOVABLE"
Case DRIVE_FIXED
Label5.Caption = "FIXED"
Case DRIVE_REMOTE
Label5.Caption = "REMOTE"
Case DRIVE_CDROM
Label5.Caption = "CDROM"
Case DRIVE_RAMDISK
Label5.Caption = "RAMDISK"
End Select
retValue = GetDiskFreeSpace(Left(Drive1.Drive, 2) & "\", Sectors, Bytes, freeClusters, totalClusters)
If retValue > 0 Then
Label6.Caption = Sectors * Bytes * freeClusters
Label12.Caption = Sectors
Label13.Caption = Bytes
Label14.Caption = freeClusters
Else
Label6.Caption = "Not Available"
Label12.Caption = "Not Available"
Label13.Caption = "Not Available"
Label14.Caption = "Not Available"
End If
retValue = GetCurrentDirectory(255, buffer)
Label7.Caption = buffer
retValue = GetWindowsDirectory(buffer, 255)
Label8.Caption = buffer

حيث أن :
Free Disk Space 6
Current Directory: 7
Free Sectors: 12
Bytes/Sector:: 13
Clusters: 14
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 309 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 337 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 319 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الوقت المستغرق منذ بدأ تشغيل الآلة RaggiTech 0 368 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الخطوط المدعومة RaggiTech 0 324 17-10-12, 02:21 PM
آخر رد: RaggiTech
  لتفريغ حقول ال TextBoxes الموجودة على WinForm RaggiTech 0 332 17-10-12, 02:20 PM
آخر رد: RaggiTech
  معرفة الوقت المنقضي منذ بدء تشغيل الكومبيوتر RaggiTech 0 347 17-10-12, 01:05 AM
آخر رد: RaggiTech
  معرفة اسم الكومبيوتر RaggiTech 0 245 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة نوع المعالج المثبت في جهازك RaggiTech 0 312 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 365 17-10-12, 01:02 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم