home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / phoenix / info.txt < prev    next >
Text File  |  1995-02-26  |  656b  |  24 lines
  1. Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer
  2. Declare Function GetFreeSpace Lib "Kernel" (ByVal fuFlags As Integer) As Long
  3.  
  4. Sub Befehl1_Click ()
  5.     InfoForm.Hide
  6. End Sub
  7.  
  8. Sub Form_Activate ()
  9.     Dim VersNr As String, S As String, I As Integer, L As Long
  10.  
  11.     S = Hex$(db_lib_version())
  12.     VersNr = Left$(S, 1)
  13.     VersNr = VersNr + "."
  14.     VersNr = VersNr + Right$(S, 2)
  15.     InfoForm.LibVersion.Caption = VersNr
  16.  
  17.     I = GetFreeSystemResources(0)
  18.     InfoForm.Sysres.Caption = Str$(I) + " %"
  19.  
  20.     L = GetFreeSpace(0) / 1024
  21.     InfoForm.Sysheap.Caption = Str$(L) + " KB"
  22. End Sub
  23.  
  24.