home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV2N5.ZIP / CHKMEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-25  |  263 b   |  12 lines
  1. PROGRAM chkmem;
  2.   { Michael A. Covington, 1991 }
  3.   { Reports amount of memory free. }
  4. USES
  5.   WinTypes, WinProcs;
  6. VAR
  7.   s: String;
  8. BEGIN
  9.   Str(GetFreeSpace(0),s);
  10.   s := s + ' bytes free'#0;
  11.   MessageBox(GetActiveWindow,addr(s[1]),'Memory Check',0)
  12. END.