home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l038 / 1.img / DOC.PAK / SYSTEM.INT < prev    next >
Encoding:
Text File  |  1991-03-14  |  1.5 KB  |  36 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal for Windows                        }
  5. {       System Unit                                     }
  6. {                                                       }
  7. {       Copyright (C) 1991 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit System;
  12.  
  13. interface
  14.  
  15. const
  16.   HPrevInst: Word = 0;          { Handle of previous instance }
  17.   HInstance: Word = 0;          { Handle of this instance }
  18.   CmdShow: Integer = 0;         { CmdShow parameter for CreateWindow }
  19.   CmdLine: PChar = nil;         { Command line pointer }
  20.   HeapList: Word = 0;           { Heap segment list }
  21.   HeapLimit: Word = 1024;       { Heap small block limit }
  22.   HeapBlock: Word = 8192;       { Heap block size }
  23.   HeapError: Pointer = nil;     { Heap error function }
  24.   ExitProc: Pointer = nil;      { Exit procedure }
  25.   ExitCode: Integer = 0;        { Exit code }
  26.   ErrorAddr: Pointer = nil;     { Runtime error address }
  27.   PrefixSeg: Word = 0;          { Program segment prefix }
  28.   InOutRes: Integer = 0;        { I/O result buffer }
  29.   RandSeed: Longint = 0;        { Random seed }
  30.   FileMode: Byte = 2;           { File open mode }
  31.  
  32. var
  33.   Input: Text;                  { Input standard file }
  34.   Output: Text;                 { Output standard file }
  35.  
  36.