home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
tpw
/
doc
/
system.int
< prev
next >
Wrap
Text File
|
1991-05-20
|
1KB
|
36 lines
{*******************************************************}
{ }
{ Turbo Pascal for Windows }
{ System Unit }
{ }
{ Copyright (C) 1991 Borland International }
{ }
{*******************************************************}
unit System;
interface
const
HPrevInst: Word = 0; { Handle of previous instance }
HInstance: Word = 0; { Handle of this instance }
CmdShow: Integer = 0; { CmdShow parameter for CreateWindow }
CmdLine: PChar = nil; { Command line pointer }
HeapList: Word = 0; { Heap segment list }
HeapLimit: Word = 1024; { Heap small block limit }
HeapBlock: Word = 8192; { Heap block size }
HeapError: Pointer = nil; { Heap error function }
ExitProc: Pointer = nil; { Exit procedure }
ExitCode: Integer = 0; { Exit code }
ErrorAddr: Pointer = nil; { Runtime error address }
PrefixSeg: Word = 0; { Program segment prefix }
InOutRes: Integer = 0; { I/O result buffer }
RandSeed: Longint = 0; { Random seed }
FileMode: Byte = 2; { File open mode }
var
Input: Text; { Input standard file }
Output: Text; { Output standard file }