كود يعطيك معلومات عن محرك الأقراص . إسمه ' نظام ملفاته ' رقمه التسلسلي
صفحة 1 من اصل 1
كود يعطيك معلومات عن محرك الأقراص . إسمه ' نظام ملفاته ' رقمه التسلسلي
أنسخ الأسطر التالية في قسم Module كما هي
Declare Function GetVolumeInformation Lib 'kernel32.dll' Alias _
'GetVolumeInformationA' (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Function GetDiskProperties(strDrive As String, DiskName As String, DiskSystemFiles As String, DiskSerialNumber As Long) As Long
Dim Res As Long
DiskName = String$(255, Chr$(0))
DiskSystemFiles = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, DiskName, _
Len(DiskName), DiskSerialNumber, 0, 0, DiskSystemFiles, Len(DiskSystemFiles))
GetDiskProperties = Res
End Function
ثم أضف للفورم ثلاث زر Command1 و ثلاث خانات نص Text1 و Text2 و Text3 و قائمة منسدلة Combo1
ثم أنسخ الكود التالي وأضفة للفورم ، ثم نفذ( F5 ) وآختر احد الأزارير .
Dim NamDisk As String, SysFile As String, SerNum As Long
Dim Drive As String
Private Sub Form_Load()
Combo1.AddItem 'A:\'
Combo1.AddItem 'B:\'
Combo1.AddItem 'C:\'
Combo1.AddItem 'D:\'
Combo1.AddItem 'E:\'
Combo1.AddItem 'F:\'
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
Drive = Combo1.Text
Re = GetDiskProperties(Drive, NamDisk, SysFile, SerNum)
Text1.Text = NamDisk
Text2.Text = SysFile
Text3.Text = SerNum
End Sub
Declare Function GetVolumeInformation Lib 'kernel32.dll' Alias _
'GetVolumeInformationA' (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Function GetDiskProperties(strDrive As String, DiskName As String, DiskSystemFiles As String, DiskSerialNumber As Long) As Long
Dim Res As Long
DiskName = String$(255, Chr$(0))
DiskSystemFiles = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, DiskName, _
Len(DiskName), DiskSerialNumber, 0, 0, DiskSystemFiles, Len(DiskSystemFiles))
GetDiskProperties = Res
End Function
ثم أضف للفورم ثلاث زر Command1 و ثلاث خانات نص Text1 و Text2 و Text3 و قائمة منسدلة Combo1
ثم أنسخ الكود التالي وأضفة للفورم ، ثم نفذ( F5 ) وآختر احد الأزارير .
Dim NamDisk As String, SysFile As String, SerNum As Long
Dim Drive As String
Private Sub Form_Load()
Combo1.AddItem 'A:\'
Combo1.AddItem 'B:\'
Combo1.AddItem 'C:\'
Combo1.AddItem 'D:\'
Combo1.AddItem 'E:\'
Combo1.AddItem 'F:\'
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
Drive = Combo1.Text
Re = GetDiskProperties(Drive, NamDisk, SysFile, SerNum)
Text1.Text = NamDisk
Text2.Text = SysFile
Text3.Text = SerNum
End Sub
Coptic_Programmer- مشرف برامج
- المساهمات : 43
تاريخ التسجيل : 29/10/2008
مواضيع مماثلة
» هل يحتوي مشغل الأقراص المدمجة على قرص أم لا ؟؟
» نظام التشغيل أعجوبة لينكس
» كتاب دليل نظام التشغيل Linux
» إسطوانة نظام لينكس (linux ubuntu) كاملة مع الشرح
» نظام التشغيل أعجوبة لينكس
» كتاب دليل نظام التشغيل Linux
» إسطوانة نظام لينكس (linux ubuntu) كاملة مع الشرح
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى