home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / STRESS.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.2 KB  |  40 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Delphi Runtime Library                          }
  4. {       Windows 3.1 API Interface Unit                  }
  5. {       Stress function declarations                    }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Stress;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. {***** Simple types & common helper macros ********************************}
  18.  
  19. { stuff for AllocDiskSpace() }
  20. const
  21.   eds_Win     = 1;
  22.   eds_Cur     = 2;
  23.   eds_Temp    = 3;
  24.  
  25.  
  26. { function prototypes }
  27. function AllocMem(dwLeft: Longint): Bool;
  28. procedure FreeAllMem;
  29. function AllocFileHandles(left: Integer): Integer;
  30. procedure UnAllocFileHandles;
  31. function GetFreeFileHandles: Integer;
  32. function AllocDiskSpace(lLeft: Longint; wDrive: Word): Integer;
  33. procedure UnAllocDiskSpace(wDrive: Word);
  34. function AllocUserMem(wContig: Word): Bool;
  35. procedure FreeAllUserMem;
  36. function AllocGDIMem(wLeft: Word): Bool;
  37. procedure FreeAllGDIMem;
  38.  
  39. implementation
  40.