Domino Code Fragment

Code Name*
16 bit free resources and available memory		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.116.40.47
Description*
Returns Free Resources on 16 Bit System		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Declarations:
Declare Function GetFreeSystemResources Lib "User" (Byval Var As _
Integer) As Integer
Declare Function GetFreeSpace Lib "Kernel" (Byval Var As Integer) _
As Integer

Sub Initialize
    Dim message As String
    Dim freeMemory As Integer
   
    freememory = GetFreeSystemResources (0)
    message = "Free system resources = " & Str(freememory) & _
    Chr(13) & Chr(10)
    freememory = GetFreeSpace(x)
    message = message & "Number of bytes available in global " _
    & " heap = " & Str(FreeMemory)
    Messagebox (message)  
End Sub