به دست آوردن فضای آزاد و فضای مصرفی رم

ابتدا دو text box بر روي فرم در ويژوال بيسيك بسازيد سپس در پنجره كد نويسي كد زير را وارد كنيد.

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 Info As MEMORYSTATUS
 
  Info.dwLength = Len(MEMORYSTATUS)
  GlobalMemoryStatus Info
  Text1.Text = Info.dwTotalPhys & "== ALL RAM"
  Text2.Text = Info.dwAvailPhys & "== Used RAM"
End Sub

برنامه كامل اين تابع api در ويژوال بيسيك براي دانلود قرار داده شده است.دانلود

نمایش پنجره فرمت درایو

اين هم يك برنامه حرفه اي در ويژوال بيسيك!!!

برای تعیین درایو پارامتر دوم تابع یعنی iDrive را تغییر می دهیم ۰و۱ برای درایو A , B و اعداد بعدي براي تعيين درايو هاي بعدي براي فرمت مي باشند.اين هم لينك دانلود