يا ريت الكودات هده لو سمحتون

بسم الله الرحمن الرحيم

يمكنك استخدام لدالة GlobalMemoryStatus للحصول على حجم الرام

Private Type MEMORYSTATUS

    dwLength As Long

    dwMemoryLoad As Long

    dwTotalPhys As Long

    dwAvailPhys As Long

    dwTotalPageFile As Long

    dwAvailPageFile As Long

    dwTotalVirtual As Long

    dwAvailVirtual As Long

End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

Private Sub Form_Load()

    

    Dim aaa As MEMORYSTATUS

  

    GlobalMemoryStatus aaa

    'الذاكرة الإجمالية

    MsgBox Str$(aaa.dwTotalPhys / 1024) + " Kb"

    'الذاكرة المتاحة

    MsgBox Str$(aaa.dwAvailPageFile / 1024) + " Kb "

End Sub

و البقية لاحقا إن رغبت

شكرا جزيلا اخي الكريم....ما قصرت والله... وانا استفدت من الكود اللي خليته لي...

ويا ريت لو احصل باقي الكودات اللي طلبتها...بس ادا ما عليك امر لو تخليها لي...

وشكرا مره ثانيه على مساعدتك لي...

(f) (f) (f)

بسم الله الرحمن الرحيم

هاتان طريقتان مختلفتان للحصول على بيانات الهارد

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long

Private Sub Form_Load()

    Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency

    Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency

    'the drive to find

    Const RootPathName = "C:"

    'get the drive's disk parameters

    Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)

    'show the results, multiplying the returned

    'value by 10000 to adjust for the 4 decimal

    'places that the currency data type returns.

    Me.AutoRedraw = True

    Me.Cls

    Me.Print

    Me.Print " Total Number Of Bytes:", Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"

    Me.Print " Total Free Bytes:", Format$(TotalFreeBytes * 10000, "###,###,###,##0") & " bytes"

    Me.Print " Free Bytes Available:", Format$(BytesFreeToCalller * 10000, "###,###,###,##0") & " bytes"

    Me.Print " Total Space Used :", Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0") & " bytes"

End Sub

و الطريقة الثانية

Private Declare Function SHGetDiskFreeSpace Lib "shell32" Alias "SHGetDiskFreeSpaceA" (ByVal pszVolume As String, pqwFreeCaller As Currency, pqwTot As Currency, pqwFree As Currency) As Long

Private Sub Form_Load()

    Dim FreeCaller As Currency, Tot As Currency, Free As Currency

    SHGetDiskFreeSpace "C:", FreeCaller, Tot, Free

    MsgBox "Free space to caller: " + Format$(FreeCaller * 10000, "###,###,###,##0") + vbCrLf + _

        "Total space: " + Format$(Tot * 10000, "###,###,###,##0") + vbCrLf + _

        "Free space: " + Format$(Free * 10000, "###,###,###,##0")

End Sub

و لم يتسن لي الوقت لطرح الباقي

و إن شاء الله قريبا مع اعتذاري على التأخير