Speicher-Funktionen

Wer mit Geräten hantiert, in denen Speicher nich eine Kostbare Ressource ist, sollte wissen, wieviel davon noch da ist. Hier zwei Möglichkeiten um den aktuellen Zustand zu erfragen.

1.Belegten Speicher ermitteln (GlobalMemoryStatus)

Deklarationsteil:

Public Declare Sub GlobalMemoryStatus Lib "Coredll" (ByVal lpBuffer As String)

hier eine Beispielfunktion, die den bereits belegten Speicher in Prozent angibt:

Public Function GetFreeMemory() as long
     Dim memStr As String
   memStr = Space(32)
   GlobalMemoryStatus memStr
   GetFreeMemory = AscB(MidB(f1, 5, 4))
End Function

2.Freien Speicher ermitteln (GetDiskFreeSpaceEx)

Deklarationsteil:

Declare Function GetDiskFreeSpaceExW Lib "coredll.dll" ( _
ByVal lpDirectoryName As String, _
ByRef lpFreeBytesAvailableToCaller As Long, _
ByRef lpTotalNumberOfBytes As Long, _
ByRef lpTotalNumberOfFreeBytes As Long _
) As Boolean

hier eine Beispielfunktion, die den noch verfügbaren Platz des ObjectStore zurückliefert

Public Function GetFreeObjMem as long
   Dim f1 As Long
   Dim f2 As Long
   Dim f3 As Long
   GetDiskFreeSpaceExW "", f1, f2, f3
   GetFreeObjMem=f1
End Function

<...zurück>