ENVIRONMENT

<h1>ENVIRONMENT</h1>
The environment unit contains operating system functionality, like interacting with the Disk Drives.
<br>
<h2>Globals</h2>
<pre>AnyFile
Archive
Directory
Hidden
ReadOnly
SysFile
VolumeID
faReadOnly
faHidden
faSysFile
faVolumeId
faDirectory
faArchive
faAnyFile
faSymLink
feInvalidHandle
fmShareCompat
fmShareDenyNone
fmShareDenyRead
fmShareDenyWrite
fmShareExclusive
fsFromBeginning
fsFromCurrent
fsFromEnd
JulianEpoch
MaxDateTime
UnixEpoch
</pre>
<br>
<h2>Functions</h2>
<pre>AddDisk(Path:String):Byte
DiskFree(Drive:Byte):Int64
DiskSize(Drive:Byte):Int64
EndOfFile(FileHandle:Longint):Boolean
EnvCount:Longint
EnvStr(Index:Longint):String
FileClose(FileHandle:Longint)
FileCreate(FileName:String;ShareMode:Longint;Rights:Longint):Longint
FileExists(FileName:String):Boolean
FileFlush(FileHandle:Longint):Boolean
FileIsDirectory(F:String):Boolean
FileIsFile(F:String):Boolean
FileIsSymLink(F:String):Boolean
FileLock(FileHandle:Longint;Position,Length:Int64):Boolean
FileOpen(FileName:String;ShareMode:Longint):Longint
FileRead(FileHandle:Longint;Var Buffer:Pointer;Count:Longint):Longint
FileSeek(FileHandle:Longint;Offset:Int64;Origin:Longint):Int64
FileSize(FileHandle:Longint):Int64;overload
FileTruncate(FileHandle:Longint;Size:Int64):Boolean
FileUnlock(FileHandle:Longint;Position,Length:Int64):Boolean
FileWrite(FileHandle:Longint;Buffer:Pointer;Count:Longint):Longint
FindFirst(FilePattern:String;FileAttribute:Longint;Handle:SearchRec):Longint
FindNext(Handle:SearchRec):Longint
FindClose(Handle:SearchRec)
GetDOW(Const Y,M,D:Longint):Longint
GetDOWString(Const DOW:Longint):Longint
GetEnv(Env:String):String
OSVersion:Word
SearchRecAttr(Handle:SearchRec):Longint
SearchRecIsDirectory(Handle:SearchRec):Boolean
SearchRecName(Handle:SearchRec):String
SearchRecSize(Handle:SearchRec):Int64
SearchRecTime(Handle:SearchRec):TTimestamp
</pre>
<br>
<h2>Procedures</h2>
<pre>GetDate(out year:Word;out month:Word;out mday:Word;out wday:Word)
GetTime(out hour:Word;out minute:Word;out second:Word;out sec100:Word)
</pre>
<br>
<h2>TFindClass</h2>
<pre>.Init(SearchType:Word)
.Find(Path,Pattern:String)
.Next
.GetActive:Boolean
.GetFound:Boolean
.GetFilename:String
.GetTimestamp:TTimestamp
.GetSize:Int64
.GetAttributes:Word
.GetIsDirectory:Boolean
.GetIsSymbolicLink:Boolean
.GetUserID:LongWord
.GetGroupID:LongWord
.GetATime:LongWord
.GetMTime:LongWord
.GetCTime:LongWord
.GetFMode:LongWord
.Free</pre>
<br>
<h2>TBinaryFileClass</h2>
<pre>.Init
.OpenBinaryFile(FName:String; FMode:Word):Boolean
.BlockRead(Var V;Num:Word;Var NumRead:Word):Boolean
.BlockWrite(Var V;Num:Word):Boolean
.SeekBinaryFile(FP:Longword):Boolean
.CloseBinaryFile:Boolean
.BinaryFileSize:LongWord
.GetBufferSize:Word
.SetBufferSize(V:Word)
.GetPosition:LongWord
.Free</pre>