mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 23:10:38 +02:00
AROS: ABIv1 AmigaDOS unit
git-svn-id: trunk@35067 -
This commit is contained in:
marcus
parent
bebef242d4
commit
7eba7122d2
@ -2246,172 +2246,179 @@ const
|
|||||||
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
procedure AbortPkt(Port: PMsgPort; Pkt: PDosPacket); syscall AOS_DOSBase 44;
|
function DOSOpen(const Name: STRPTR; AccessMode: LongInt): BPTR; syscall AOS_DOSBase 5;
|
||||||
function AddBuffers(const DeviceName: STRPTR; NumbBuffers: LongInt): LongBool; syscall AOS_DOSBase 122;
|
function DOSClose(File_: BPTR): LongBool; syscall AOS_DOSBase 6;
|
||||||
function AddDosEntry(DList: PDosList): LongInt; syscall AOS_DOSBase 113;
|
function DOSRead(File_: BPTR; Buffer: APTR; Length: LongInt): LongInt; syscall AOS_DOSBase 7;
|
||||||
function AddPart(DirName: STRPTR; const FileName: STRPTR; Size: LongWord): LongBool; syscall AOS_DOSBase 147;
|
function DOSWrite(File_: BPTR; Buffer: APTR; Length: LongInt): LongInt; syscall AOS_DOSBase 8;
|
||||||
function AddSegment(const Name: STRPTR; Seg: BPTR; Type_: LongInt): LongBool; syscall AOS_DOSBase 129;
|
function DOSInput: BPTR; syscall AOS_DOSBase 9;
|
||||||
|
function DOSOutput : BPTR; syscall AOS_DOSBase 10;
|
||||||
|
function DOSSeek(File_: BPTR; Position: LongInt; Mode: LongInt): LongInt; syscall AOS_DOSBase 11;
|
||||||
|
function DOSDeleteFile(const Name: STRPTR): LongBool; syscall AOS_DOSBase 12;
|
||||||
|
function DOSRename(const OldName: STRPTR; const NewName: STRPTR): LongInt; syscall AOS_DOSBase 13;
|
||||||
|
function Lock(const Name: STRPTR; AccessMode: LongInt): BPTR; syscall AOS_DOSBase 14;
|
||||||
|
function UnLock(Lock: BPTR): LongBool; syscall AOS_DOSBase 15;
|
||||||
|
function DupLock(Lock: BPTR): BPTR; syscall AOS_DOSBase 16;
|
||||||
|
function Examine(Lock: BPTR; FileInfoBlock: PFileInfoBlock): LongInt; syscall AOS_DOSBase 17;
|
||||||
|
function ExNext(Lock: BPTR; FileInfoBlock: PFileInfoBlock): LongInt; syscall AOS_DOSBase 18;
|
||||||
|
function Info(Lock: BPTR; ParameterBlock: PInfoData): LongInt; syscall AOS_DOSBase 19;
|
||||||
|
function DOSCreateDir(const Name: STRPTR): BPTR; syscall AOS_DOSBase 20;
|
||||||
|
function CurrentDir(Lock: BPTR): BPTR; syscall AOS_DOSBase 21;
|
||||||
|
function IoErr: LongInt; syscall AOS_DOSBase 22;
|
||||||
|
function CreateProc(const Name: STRPTR; Pri: LongInt; SegList: BPTR; StackSize: LongInt): PMsgPort; syscall AOS_DOSBase 23;
|
||||||
|
procedure DOSExit(ReturnCode: LongInt); syscall AOS_DOSBase 24;
|
||||||
|
function LoadSeg(const Name: STRPTR): BPTR; syscall AOS_DOSBase 25;
|
||||||
|
procedure UnLoadSeg(Seglist: BPTR); syscall AOS_DOSBase 26;
|
||||||
|
function DeviceProc(const Name: STRPTR): PMsgPort; syscall AOS_DOSBase 29;
|
||||||
|
function SetComment(const Name: STRPTR; const Comment: STRPTR): LongInt; syscall AOS_DOSBase 30;
|
||||||
|
function SetProtection(const Name: STRPTR; Protect: LongWord): LongInt; syscall AOS_DOSBase 31;
|
||||||
|
function DateStamp(Date: PDateStamp): PDateStamp; syscall AOS_DOSBase 32;
|
||||||
|
procedure DOSDelay(TimeOut: LongWord); syscall AOS_DOSBase 33;
|
||||||
|
function WaitForChar(File_: BPTR; TimeOut: LongInt): LongInt; syscall AOS_DOSBase 34;
|
||||||
|
function ParentDir(Lock: BPTR): BPTR; syscall AOS_DOSBase 35;
|
||||||
|
function IsInteractive(File_: BPTR): LongInt; syscall AOS_DOSBase 36;
|
||||||
|
function Execute(const String_: STRPTR; Input: BPTR; Output: BPTR): LongInt; syscall AOS_DOSBase 37;
|
||||||
function AllocDosObject(Type_: LongWord; const Tags: PTagItem): APTR; syscall AOS_DOSBase 38;
|
function AllocDosObject(Type_: LongWord; const Tags: PTagItem): APTR; syscall AOS_DOSBase 38;
|
||||||
function AllocDosObjectTagList(Type_: LongWord; const Tags: PTagItem): APTR; syscall AOS_DOSBase 38;
|
function AllocDosObjectTagList(Type_: LongWord; const Tags: PTagItem): APTR; syscall AOS_DOSBase 38;
|
||||||
function AssignAdd(const Name: STRPTR; Lock: BPTR): LongBool; syscall AOS_DOSBase 105;
|
|
||||||
function AssignLate(const Name: STRPTR; const Path: STRPTR): LongBool; syscall AOS_DOSBase 103;
|
|
||||||
function AssignLock(const Name: STRPTR; Lock: BPTR): LongInt; syscall AOS_DOSBase 102;
|
|
||||||
function AssignPath(const Name: STRPTR; const Path: STRPTR): LongBool; syscall AOS_DOSBase 104;
|
|
||||||
function AttemptLockDosList(Flags: LongWord): PDosList; syscall AOS_DOSBase 111;
|
|
||||||
function ChangeMode(Type_: LongWord; Object_: BPTR; NewMode: LongWord): LongBool; syscall AOS_DOSBase 75;
|
|
||||||
function CheckSignal(Mask: LongInt): LongInt; syscall AOS_DOSBase 132;
|
|
||||||
function Cli: PCommandLineInterface; syscall AOS_DOSBase 82;
|
|
||||||
function CliInitNewcli(Dp: PDosPacket): IPTR; syscall AOS_DOSBase 155;
|
|
||||||
function CliInitRun(Dp: PDosPacket): IPTR; syscall AOS_DOSBase 156;
|
|
||||||
function CompareDates(const Date1: PDateStamp; const Date2: PDateStamp): LongInt; syscall AOS_DOSBase 123;
|
|
||||||
function DOSCreateDir(const Name: STRPTR): BPTR; syscall AOS_DOSBase 20;
|
|
||||||
function CreateNewProc(const Tags: PTagItem): PProcess; syscall AOS_DOSBase 83;
|
|
||||||
function CreateNewProcTagList(const Tags: PTagItem): PProcess; syscall AOS_DOSBase 83;
|
|
||||||
function CreateProc(const Name: STRPTR; Pri: LongInt; SegList: BPTR; StackSize: LongInt): PMsgPort; syscall AOS_DOSBase 23;
|
|
||||||
function CurrentDir(Lock: BPTR): BPTR; syscall AOS_DOSBase 21;
|
|
||||||
function DateStamp(Date: PDateStamp): PDateStamp; syscall AOS_DOSBase 32;
|
|
||||||
function DOSDateToStr(Datetime: _PDateTime): LongBool; syscall AOS_DOSBase 124;
|
|
||||||
function DOSDeleteFile(const Name: STRPTR): LongBool; syscall AOS_DOSBase 12;
|
|
||||||
function DeleteVar(const Name: STRPTR; Flags: LongWord): LongInt; syscall AOS_DOSBase 152;
|
|
||||||
function DeviceProc(const Name: STRPTR): PMsgPort; syscall AOS_DOSBase 29;
|
|
||||||
function DisplayError(FormstStr: STRPTR; Flags: LongWord; Args: APTR): LongInt; syscall AOS_DOSBase 81;
|
|
||||||
function DoPkt(Port: PMsgPort; Action: LongInt; Arg1, Arg2, Arg3, Arg4, Arg5: LongInt): LongInt; syscall AOS_DOSBase 40;
|
|
||||||
function DOSClose(File_: BPTR): LongBool; syscall AOS_DOSBase 6;
|
|
||||||
procedure DOSDelay(TimeOut: LongWord); syscall AOS_DOSBase 33;
|
|
||||||
procedure DOSExit(ReturnCode: LongInt); syscall AOS_DOSBase 24;
|
|
||||||
function DosError(): BPTR; syscall AOS_DOSBase 142;
|
|
||||||
function DOSFlush(File_: BPTR): LongInt; syscall AOS_DOSBase 60;
|
|
||||||
function DosGetLocalizedString(StringNum: LongInt): STRPTR; syscall AOS_DOSBase 154;
|
|
||||||
function DosGetString(StringNum: LongInt): STRPTR; syscall AOS_DOSBase 163;
|
|
||||||
function DOSInput: BPTR; syscall AOS_DOSBase 9;
|
|
||||||
function DOSOpen(const Name: STRPTR; AccessMode: LongInt): BPTR; syscall AOS_DOSBase 5;
|
|
||||||
function DOSOutput : BPTR; syscall AOS_DOSBase 10;
|
|
||||||
function DOSRead(File_: BPTR; Buffer: APTR; Length: LongInt): LongInt; syscall AOS_DOSBase 7;
|
|
||||||
function DOSRename(const OldName: STRPTR; const NewName: STRPTR): LongInt; syscall AOS_DOSBase 13;
|
|
||||||
function DOSSeek(File_: BPTR; Position: LongInt; Mode: LongInt): LongInt; syscall AOS_DOSBase 11;
|
|
||||||
function DOSWrite(File_: BPTR; Buffer: APTR; Length: LongInt): LongInt; syscall AOS_DOSBase 8;
|
|
||||||
function DupLock(Lock: BPTR): BPTR; syscall AOS_DOSBase 16;
|
|
||||||
function DupLockFromFH(Lock: BPTR): BPTR; syscall AOS_DOSBase 62;
|
|
||||||
procedure EndNotify(Notify: PNotifyRequest); syscall AOS_DOSBase 149;
|
|
||||||
function ErrorReport(Code: LongInt; Type_: LongInt; Arg1: IPTR; Device: PMsgPort): LongBool; syscall AOS_DOSBase 80;
|
|
||||||
function ExAll(Lock: BPTR; Buffer: PExAllData; Size: LongInt; Data: LongInt; Control: PExAllControl): LongBool; syscall AOS_DOSBase 72;
|
|
||||||
procedure ExAllEnd(Lock: BPTR; Buffer: PExAllData; Size: LongInt; Data: LongInt; Control: PExAllControl); syscall AOS_DOSBase 165;
|
|
||||||
function Examine(Lock: BPTR; FileInfoBlock: PFileInfoBlock): LongInt; syscall AOS_DOSBase 17;
|
|
||||||
function ExamineFH(Fh: BPTR; Fib: PFileInfoBlock): LongBool; syscall AOS_DOSBase 65;
|
|
||||||
function Execute(const String_: STRPTR; Input: BPTR; Output: BPTR): LongInt; syscall AOS_DOSBase 37;
|
|
||||||
function ExNext(Lock: BPTR; FileInfoBlock: PFileInfoBlock): LongInt; syscall AOS_DOSBase 18;
|
|
||||||
function Fault(Code: LongInt; Header: STRPTR; Buffer: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 78;
|
|
||||||
function FGetC(File_: BPTR): LongInt; syscall AOS_DOSBase 51;
|
|
||||||
function FGets(Fh: BPTR; Buf: STRPTR; BufLen: LongWord): STRPTR; syscall AOS_DOSBase 56;
|
|
||||||
function FilePart(const Path: STRPTR): STRPTR; syscall AOS_DOSBase 145;
|
|
||||||
function FindArg(const Template: STRPTR; const KeyWord: STRPTR): LongInt; syscall AOS_DOSBase 134;
|
|
||||||
function FindCliProc(Num: LongWord): PProcess; syscall AOS_DOSBase 91;
|
|
||||||
function FindDosEntry(const DList: PDosList; const Name: STRPTR; Flags: LongWord): PDosList; syscall AOS_DOSBase 114;
|
|
||||||
function FindSegment(const Name: STRPTR; const Seg: PSegment; System: LongBool): PSegment; syscall AOS_DOSBase 130;
|
|
||||||
function FindVar(const Name: STRPTR; Type_: LongWord): PLocalVar; syscall AOS_DOSBase 153;
|
|
||||||
function DosFormat(const DeviceName: STRPTR; const VolumeName: STRPTR; DosType: LongWord): LongBool; syscall AOS_DOSBase 119;
|
|
||||||
function FPutC(File_: BPTR; Character: LongInt): LongInt; syscall AOS_DOSBase 52;
|
|
||||||
function FPuts(File_: BPTR; const String_: STRPTR): LongInt; syscall AOS_DOSBase 57;
|
|
||||||
function FRead(Fh: BPTR; Block: APTR; Blocklen: LongWord; Number: LongWord): LongInt; syscall AOS_DOSBase 54;
|
|
||||||
procedure FreeArgs(Args: PRDArgs); syscall AOS_DOSBase 143;
|
|
||||||
procedure FreeDeviceProc(Dp: PDevProc); syscall AOS_DOSBase 108;
|
|
||||||
procedure FreeDosEntry(DList: PDosList); syscall AOS_DOSBase 117;
|
|
||||||
procedure FreeDosObject(Type_: LongWord; Ptr: APTR); syscall AOS_DOSBase 39;
|
procedure FreeDosObject(Type_: LongWord; Ptr: APTR); syscall AOS_DOSBase 39;
|
||||||
function FWrite(Fh: BPTR; Block: APTR; Blocklen: LongWord; NumBlocks: LongWord): LongInt; syscall AOS_DOSBase 55;
|
function DoPkt(Port: PMsgPort; Action: LongInt; Arg1, Arg2, Arg3, Arg4, Arg5: LongInt): LongInt; syscall AOS_DOSBase 40;
|
||||||
function GetArgStr: STRPTR; syscall AOS_DOSBase 89;
|
procedure SendPkt(Dp: PDosPacket; Port: PMsgPort; ReplyPort: PMsgPort); syscall AOS_DOSBase 41;
|
||||||
function GetConsoleTask: PMsgPort; syscall AOS_DOSBase 85;
|
function WaitPkt: PDosPacket; syscall AOS_DOSBase 42;
|
||||||
function GetCurrentDirName(Buf: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 94;
|
procedure ReplyPkt(Dp: PDosPacket; Res1: LongInt; Res2: LongInt); syscall AOS_DOSBase 43;
|
||||||
function GetDeviceProc(const Name: STRPTR; Dp: PDevProc): PDevProc; syscall AOS_DOSBase 107;
|
procedure AbortPkt(Port: PMsgPort; Pkt: PDosPacket); syscall AOS_DOSBase 44;
|
||||||
function GetFileSysTask: PMsgPort; syscall AOS_DOSBase 87;
|
|
||||||
function GetProgramDir: BPTR; syscall AOS_DOSBase 100;
|
|
||||||
function GetProgramName(Buf: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 96;
|
|
||||||
function GetPrompt(Buf: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 98;
|
|
||||||
function GetVar(const Name: STRPTR; Buffer: STRPTR; Size: LongInt; Flags: LongInt): LongInt; syscall AOS_DOSBase 151;
|
|
||||||
function Info(Lock: BPTR; ParameterBlock: PInfoData): LongInt; syscall AOS_DOSBase 19;
|
|
||||||
function Inhibit(const Name: STRPTR; OnOff: LongInt): LongInt; syscall AOS_DOSBase 121;
|
|
||||||
function InternalLoadSeg(Fh: BPTR; Table: BPTR; const FuncArray: PLongInt; var Stack: LongInt): BPTR; syscall AOS_DOSBase 126;
|
|
||||||
function InternalUnLoadSeg(SegList: BPTR; FreeFunc: TProcedure): LongBool; syscall AOS_DOSBase 127;
|
|
||||||
function IoErr: LongInt; syscall AOS_DOSBase 22;
|
|
||||||
function IsFileSystem(const Name: STRPTR): LongBool; syscall AOS_DOSBase 118;
|
|
||||||
function IsInteractive(File_: BPTR): LongInt; syscall AOS_DOSBase 36;
|
|
||||||
function LoadSeg(const Name: STRPTR): BPTR; syscall AOS_DOSBase 25;
|
|
||||||
function Lock(const Name: STRPTR; AccessMode: LongInt): BPTR; syscall AOS_DOSBase 14;
|
|
||||||
function LockDosList(Flags: LongWord): PDosList; syscall AOS_DOSBase 109;
|
|
||||||
function LockRecord(Fh: BPTR; Offset: LongWord; Length: LongWord; Mode: LongWord; Timeout: LongWord): LongBool; syscall AOS_DOSBase 45;
|
function LockRecord(Fh: BPTR; Offset: LongWord; Length: LongWord; Mode: LongWord; Timeout: LongWord): LongBool; syscall AOS_DOSBase 45;
|
||||||
function LockRecords(RecArray: PRecordLock; TimeOut: LongWord): LongBool; syscall AOS_DOSBase 46;
|
function LockRecords(RecArray: PRecordLock; TimeOut: LongWord): LongBool; syscall AOS_DOSBase 46;
|
||||||
function MakeDosEntry(const Name: STRPTR; Type_: LongInt): PDosList; syscall AOS_DOSBase 116;
|
|
||||||
function MakeLink(const Name: STRPTR; Dest: APTR; Soft: LongInt): LongInt; syscall AOS_DOSBase 74;
|
|
||||||
procedure MatchEnd(AP: PAnchorPath); syscall AOS_DOSBase 139;
|
|
||||||
function MatchFirst(const Pat: STRPTR; AP: PAnchorPath): LongInt; syscall AOS_DOSBase 137;
|
|
||||||
function MatchNext(AP: PAnchorPath): LongInt; syscall AOS_DOSBase 138;
|
|
||||||
function MatchPattern(const Pat: STRPTR; Str: STRPTR): LongBool; syscall AOS_DOSBase 141;
|
|
||||||
function MatchPatternNoCase(const Pat: STRPTR; Str: STRPTR): LongBool; syscall AOS_DOSBase 162;
|
|
||||||
function MaxCli: LongWord; syscall AOS_DOSBase 92;
|
|
||||||
function NameFromFH(Fh: BPTR; Buffer: STRPTR; Length: LongInt): LongBool; syscall AOS_DOSBase 68;
|
|
||||||
function NameFromLock(Lock: BPTR; Buffer: STRPTR; Length: LongInt): LongBool; syscall AOS_DOSBase 67;
|
|
||||||
function NewLoadSeg(const File_: STRPTR; const Tags: PTagItem): BPTR; syscall AOS_DOSBase 128;
|
|
||||||
function NewLoadSegTagList(const File_: STRPTR; const Tags: PTagItem): BPTR; syscall AOS_DOSBase 128;
|
|
||||||
function NextDosEntry(const DList: PDosList; Flags: LongWord): PDosList; syscall AOS_DOSBase 115;
|
|
||||||
function OpenFromLock(Lock: BPTR): BPTR; syscall AOS_DOSBase 62;
|
|
||||||
function ParentDir(Lock: BPTR): BPTR; syscall AOS_DOSBase 35;
|
|
||||||
function ParentOfFH(Fh: BPTR): BPTR; syscall AOS_DOSBase 64;
|
|
||||||
function ParsePattern(const Source: STRPTR; Dest: STRPTR; DestLength: LongInt): LongInt; syscall AOS_DOSBase 140;
|
|
||||||
function ParsePatternNoCase(const Source: STRPTR; Dest: STRPTR; DestLen: LongInt): LongInt; syscall AOS_DOSBase 161;
|
|
||||||
function PathPart(const Path: STRPTR): STRPTR; syscall AOS_DOSBase 146;
|
|
||||||
function Pipe(const Name: STRPTR; var Reader: BPTR; var Writer: BPTR): LongInt; syscall AOS_DOSBase 160;
|
|
||||||
function PrintFault(Code: LongInt; const Header: STRPTR): LongBool; syscall AOS_DOSBase 79;
|
|
||||||
function PutStr(const String_: STRPTR): LongInt; syscall AOS_DOSBase 158;
|
|
||||||
function ReadArgs(const Template: STRPTR; Array_: PIPTR; RdArgs: PRDArgs): PRDArgs; syscall AOS_DOSBase 133;
|
|
||||||
function ReadItem(const Buffer: STRPTR; MaxChars: LongInt; CSource: PCSource): LongInt; syscall AOS_DOSBase 135;
|
|
||||||
function ReadLink(Port: PMsgPort; Lock: LongInt; const Path: STRPTR; Buffer: STRPTR; Size: LongWord): LongInt; syscall AOS_DOSBase 73;
|
|
||||||
function Relabel(const Drive: STRPTR; const NewName: STRPTR): LongInt; syscall AOS_DOSBase 120;
|
|
||||||
function RemAssignList(const Name: STRPTR; Lock: BPTR): LongInt; syscall AOS_DOSBase 106;
|
|
||||||
function RemDosEntry(DList: PDosList): LongInt; syscall AOS_DOSBase 112;
|
|
||||||
function RemSegment(Seg: PSegment): LongInt; syscall AOS_DOSBase 131;
|
|
||||||
procedure ReplyPkt(Dp: PDosPacket; Res1: LongInt; Res2: LongInt); syscall AOS_DOSBase 43;
|
|
||||||
function RunCommand(SegList: BPTR; StackSize: LongWord; const ArgPtr: STRPTR; ArgSize: LongWord): LongInt; syscall AOS_DOSBase 84;
|
|
||||||
function RunHandler(DevNode: PDeviceNode; Path: PChar): PMsgPort; syscall AOS_DOSBase 27;
|
|
||||||
function SameDevice(Lock1: BPTR; Lock2: BPTR): LongBool; syscall AOS_DOSBase 164;
|
|
||||||
function SameLock(Lock1: BPTR; Lock2: BPTR): LongInt; syscall AOS_DOSBase 70;
|
|
||||||
function ScanVars(Hook: PHook; Flags: LongWord; UserData: APTR): LongInt; syscall AOS_DOSBase 167;
|
|
||||||
function SelectError(Fh: BPTR): BPTR; syscall AOS_DOSBase 144;
|
|
||||||
function SelectInput(Fh: BPTR): BPTR; syscall AOS_DOSBase 49;
|
|
||||||
function SelectOutput(Fh: BPTR): BPTR; syscall AOS_DOSBase 50;
|
|
||||||
procedure SendPkt(Dp: PDosPacket; Port: PMsgPort; ReplyPort: PMsgPort); syscall AOS_DOSBase 41;
|
|
||||||
function SetArgStr(const String_: STRPTR): STRPTR; syscall AOS_DOSBase 90;
|
|
||||||
function SetComment(const Name: STRPTR; const Comment: STRPTR): LongInt; syscall AOS_DOSBase 30;
|
|
||||||
function SetConsoleTask(const Handler: PMsgPort): PMsgPort; syscall AOS_DOSBase 86;
|
|
||||||
function SetCurrentDirName(const Name: STRPTR): LongBool; syscall AOS_DOSBase 93;
|
|
||||||
function SetFileDate(const Name: STRPTR; Date: PDateStamp): LongBool; syscall AOS_DOSBase 66;
|
|
||||||
function SetFileSize(File_: BPTR; Offset: LongInt; Mode: LongInt): LongInt; syscall AOS_DOSBase 76;
|
|
||||||
function SetFileSysTask(const Task: PMsgPort): PMsgPort; syscall AOS_DOSBase 88;
|
|
||||||
function SetIoErr(Result_: LongInt): LongInt; syscall AOS_DOSBase 77;
|
|
||||||
function SetMode(Fh: BPTR; Mode: LongInt): LongBool; syscall AOS_DOSBase 72;
|
|
||||||
function SetOwner(const Name: STRPTR; Owner_Info: LongWord): LongBool; syscall AOS_DOSBase 166;
|
|
||||||
function SetProgramDir(Lock: BPTR): BPTR; syscall AOS_DOSBase 99;
|
|
||||||
function SetProgramName(const Name: STRPTR): LongBool; syscall AOS_DOSBase 95;
|
|
||||||
function SetPrompt(const Name: STRPTR): LongBool; syscall AOS_DOSBase 97;
|
|
||||||
function SetProtection(const Name: STRPTR; Protect: LongWord): LongInt; syscall AOS_DOSBase 31;
|
|
||||||
function SetVar(const Name: STRPTR; Buffer: PChar; Size: LongInt; Flags: LongInt): LongBool; syscall AOS_DOSBase 150;
|
|
||||||
function SetVBuf(File_: BPTR; Buff: STRPTR; Type_: LongInt; Size: LongInt): LongInt; syscall AOS_DOSBase 61;
|
|
||||||
function SplitName(const Name: STRPTR; Seperator: LongWord; Buf: STRPTR; OldPos: LongInt; Size: LongInt): LongInt; syscall AOS_DOSBase 69;
|
|
||||||
function StartNotify(Notify: PNotifyRequest): LongBool; syscall AOS_DOSBase 148;
|
|
||||||
function DOSStrToDate(DateTime: _PDateTime): LongBool; syscall AOS_DOSBase 125;
|
|
||||||
function StrToLong(const String_: STRPTR; var Value: LongInt): LongInt; syscall AOS_DOSBase 136;
|
|
||||||
function SystemTagList(const Command: STRPTR; const Tags: PTagItem): LongInt; syscall AOS_DOSBase 101;
|
|
||||||
function DOSSystem(const Command: STRPTR; const Tags: PTagItem): LongInt; syscall AOS_DOSBase 101;
|
|
||||||
function UnGetC(File_: BPTR; Character: LongInt): LongInt; syscall AOS_DOSBase 53;
|
|
||||||
procedure UnLoadSeg(Seglist: BPTR); syscall AOS_DOSBase 26;
|
|
||||||
function UnLock(Lock: BPTR): LongBool; syscall AOS_DOSBase 15;
|
|
||||||
procedure UnLockDosList(Flags: LongWord); syscall AOS_DOSBase 110;
|
|
||||||
function UnLockRecord(Fh: BPTR; Offset: LongWord; Length: LongWord): LongBool; syscall AOS_DOSBase 47;
|
function UnLockRecord(Fh: BPTR; Offset: LongWord; Length: LongWord): LongBool; syscall AOS_DOSBase 47;
|
||||||
function UnLockRecords(RecArray: PRecordLock): LongBool; syscall AOS_DOSBase 48;
|
function UnLockRecords(RecArray: PRecordLock): LongBool; syscall AOS_DOSBase 48;
|
||||||
function VFPrintf(Fh: BPTR; const format: STRPTR; const ArgArray: PLongInt): LongInt; syscall AOS_DOSBase 59;
|
function SelectInput(Fh: BPTR): BPTR; syscall AOS_DOSBase 49;
|
||||||
|
function SelectOutput(Fh: BPTR): BPTR; syscall AOS_DOSBase 50;
|
||||||
|
function FGetC(File_: BPTR): LongInt; syscall AOS_DOSBase 51;
|
||||||
|
function FPutC(File_: BPTR; Character: LongInt): LongInt; syscall AOS_DOSBase 52;
|
||||||
|
function UnGetC(File_: BPTR; Character: LongInt): LongInt; syscall AOS_DOSBase 53;
|
||||||
|
function FRead(Fh: BPTR; Block: APTR; Blocklen: LongWord; Number: LongWord): LongInt; syscall AOS_DOSBase 54;
|
||||||
|
function FWrite(Fh: BPTR; Block: APTR; Blocklen: LongWord; NumBlocks: LongWord): LongInt; syscall AOS_DOSBase 55;
|
||||||
|
function FGets(Fh: BPTR; Buf: STRPTR; BufLen: LongWord): STRPTR; syscall AOS_DOSBase 56;
|
||||||
|
function FPuts(File_: BPTR; const String_: STRPTR): LongInt; syscall AOS_DOSBase 57;
|
||||||
function VFWritef(Fh: BPTR; const Fmt: STRPTR; const ArgArray: PLongInt): LongInt; syscall AOS_DOSBase 58;
|
function VFWritef(Fh: BPTR; const Fmt: STRPTR; const ArgArray: PLongInt): LongInt; syscall AOS_DOSBase 58;
|
||||||
function VPrintf(const Format: STRPTR; var ArgArray: IPTR): LongInt; syscall AOS_DOSBase 159;
|
function VFPrintf(Fh: BPTR; const format: STRPTR; const ArgArray: PLongInt): LongInt; syscall AOS_DOSBase 59;
|
||||||
function WaitForChar(File_: BPTR; TimeOut: LongInt): LongInt; syscall AOS_DOSBase 34;
|
function DOSFlush(File_: BPTR): LongInt; syscall AOS_DOSBase 60;
|
||||||
function WaitPkt: PDosPacket; syscall AOS_DOSBase 42;
|
function SetVBuf(File_: BPTR; Buff: STRPTR; Type_: LongInt; Size: LongInt): LongInt; syscall AOS_DOSBase 61;
|
||||||
|
function DupLockFromFH(Lock: BPTR): BPTR; syscall AOS_DOSBase 62;
|
||||||
|
function OpenFromLock(Lock: BPTR): BPTR; syscall AOS_DOSBase 63;
|
||||||
|
function ParentOfFH(Fh: BPTR): BPTR; syscall AOS_DOSBase 64;
|
||||||
|
function ExamineFH(Fh: BPTR; Fib: PFileInfoBlock): LongBool; syscall AOS_DOSBase 65;
|
||||||
|
function SetFileDate(const Name: STRPTR; Date: PDateStamp): LongBool; syscall AOS_DOSBase 66;
|
||||||
|
function NameFromLock(Lock: BPTR; Buffer: STRPTR; Length: LongInt): LongBool; syscall AOS_DOSBase 67;
|
||||||
|
function NameFromFH(Fh: BPTR; Buffer: STRPTR; Length: LongInt): LongBool; syscall AOS_DOSBase 68;
|
||||||
|
function SplitName(const Name: STRPTR; Seperator: LongWord; Buf: STRPTR; OldPos: LongInt; Size: LongInt): LongInt; syscall AOS_DOSBase 69;
|
||||||
|
function SameLock(Lock1: BPTR; Lock2: BPTR): LongInt; syscall AOS_DOSBase 70;
|
||||||
|
function SetMode(Fh: BPTR; Mode: LongInt): LongBool; syscall AOS_DOSBase 71;
|
||||||
|
function ExAll(Lock: BPTR; Buffer: PExAllData; Size: LongInt; Data: LongInt; Control: PExAllControl): LongBool; syscall AOS_DOSBase 72;
|
||||||
|
function ReadLink(Port: PMsgPort; Lock: LongInt; const Path: STRPTR; Buffer: STRPTR; Size: LongWord): LongInt; syscall AOS_DOSBase 73;
|
||||||
|
function MakeLink(const Name: STRPTR; Dest: APTR; Soft: LongInt): LongInt; syscall AOS_DOSBase 74;
|
||||||
|
function ChangeMode(Type_: LongWord; Object_: BPTR; NewMode: LongWord): LongBool; syscall AOS_DOSBase 75;
|
||||||
|
function SetFileSize(File_: BPTR; Offset: LongInt; Mode: LongInt): LongInt; syscall AOS_DOSBase 76;
|
||||||
|
function SetIoErr(Result_: LongInt): LongInt; syscall AOS_DOSBase 77;
|
||||||
|
function Fault(Code: LongInt; Header: STRPTR; Buffer: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 78;
|
||||||
|
function PrintFault(Code: LongInt; const Header: STRPTR): LongBool; syscall AOS_DOSBase 79;
|
||||||
|
function ErrorReport(Code: LongInt; Type_: LongInt; Arg1: IPTR; Device: PMsgPort): LongBool; syscall AOS_DOSBase 80;
|
||||||
|
function DisplayError(FormstStr: STRPTR; Flags: LongWord; Args: APTR): LongInt; syscall AOS_DOSBase 81;
|
||||||
|
function Cli: PCommandLineInterface; syscall AOS_DOSBase 82;
|
||||||
|
function CreateNewProc(const Tags: PTagItem): PProcess; syscall AOS_DOSBase 83;
|
||||||
|
function CreateNewProcTagList(const Tags: PTagItem): PProcess; syscall AOS_DOSBase 83;
|
||||||
|
function RunCommand(SegList: BPTR; StackSize: LongWord; const ArgPtr: STRPTR; ArgSize: LongWord): LongInt; syscall AOS_DOSBase 84;
|
||||||
|
function GetConsoleTask: PMsgPort; syscall AOS_DOSBase 85;
|
||||||
|
function SetConsoleTask(const Handler: PMsgPort): PMsgPort; syscall AOS_DOSBase 86;
|
||||||
|
function GetFileSysTask: PMsgPort; syscall AOS_DOSBase 87;
|
||||||
|
function SetFileSysTask(const Task: PMsgPort): PMsgPort; syscall AOS_DOSBase 88;
|
||||||
|
function GetArgStr: STRPTR; syscall AOS_DOSBase 89;
|
||||||
|
function SetArgStr(const String_: STRPTR): STRPTR; syscall AOS_DOSBase 90;
|
||||||
|
function FindCliProc(Num: LongWord): PProcess; syscall AOS_DOSBase 91;
|
||||||
|
function MaxCli: LongWord; syscall AOS_DOSBase 92;
|
||||||
|
function SetCurrentDirName(const Name: STRPTR): LongBool; syscall AOS_DOSBase 93;
|
||||||
|
function GetCurrentDirName(Buf: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 94;
|
||||||
|
function SetProgramName(const Name: STRPTR): LongBool; syscall AOS_DOSBase 95;
|
||||||
|
function GetProgramName(Buf: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 96;
|
||||||
|
function SetPrompt(const Name: STRPTR): LongBool; syscall AOS_DOSBase 97;
|
||||||
|
function GetPrompt(Buf: STRPTR; Len: LongInt): LongBool; syscall AOS_DOSBase 98;
|
||||||
|
function SetProgramDir(Lock: BPTR): BPTR; syscall AOS_DOSBase 99;
|
||||||
|
function GetProgramDir: BPTR; syscall AOS_DOSBase 100;
|
||||||
|
function SystemTagList(const Command: STRPTR; const Tags: PTagItem): LongInt; syscall AOS_DOSBase 101;
|
||||||
|
function DOSSystem(const Command: STRPTR; const Tags: PTagItem): LongInt; syscall AOS_DOSBase 101;
|
||||||
|
function AssignLock(const Name: STRPTR; Lock: BPTR): LongInt; syscall AOS_DOSBase 102;
|
||||||
|
function AssignLate(const Name: STRPTR; const Path: STRPTR): LongBool; syscall AOS_DOSBase 103;
|
||||||
|
function AssignPath(const Name: STRPTR; const Path: STRPTR): LongBool; syscall AOS_DOSBase 104;
|
||||||
|
function AssignAdd(const Name: STRPTR; Lock: BPTR): LongBool; syscall AOS_DOSBase 105;
|
||||||
|
function RemAssignList(const Name: STRPTR; Lock: BPTR): LongInt; syscall AOS_DOSBase 106;
|
||||||
|
function GetDeviceProc(const Name: STRPTR; Dp: PDevProc): PDevProc; syscall AOS_DOSBase 107;
|
||||||
|
procedure FreeDeviceProc(Dp: PDevProc); syscall AOS_DOSBase 108;
|
||||||
|
function LockDosList(Flags: LongWord): PDosList; syscall AOS_DOSBase 109;
|
||||||
|
procedure UnLockDosList(Flags: LongWord); syscall AOS_DOSBase 110;
|
||||||
|
function AttemptLockDosList(Flags: LongWord): PDosList; syscall AOS_DOSBase 111;
|
||||||
|
function RemDosEntry(DList: PDosList): LongInt; syscall AOS_DOSBase 112;
|
||||||
|
function AddDosEntry(DList: PDosList): LongInt; syscall AOS_DOSBase 113;
|
||||||
|
function FindDosEntry(const DList: PDosList; const Name: STRPTR; Flags: LongWord): PDosList; syscall AOS_DOSBase 114;
|
||||||
|
function NextDosEntry(const DList: PDosList; Flags: LongWord): PDosList; syscall AOS_DOSBase 115;
|
||||||
|
function MakeDosEntry(const Name: STRPTR; Type_: LongInt): PDosList; syscall AOS_DOSBase 116;
|
||||||
|
procedure FreeDosEntry(DList: PDosList); syscall AOS_DOSBase 117;
|
||||||
|
function IsFileSystem(const Name: STRPTR): LongBool; syscall AOS_DOSBase 118;
|
||||||
|
function DosFormat(const DeviceName: STRPTR; const VolumeName: STRPTR; DosType: LongWord): LongBool; syscall AOS_DOSBase 119;
|
||||||
|
function Relabel(const Drive: STRPTR; const NewName: STRPTR): LongInt; syscall AOS_DOSBase 120;
|
||||||
|
function Inhibit(const Name: STRPTR; OnOff: LongInt): LongInt; syscall AOS_DOSBase 121;
|
||||||
|
function AddBuffers(const DeviceName: STRPTR; NumbBuffers: LongInt): LongBool; syscall AOS_DOSBase 122;
|
||||||
|
function CompareDates(const Date1: PDateStamp; const Date2: PDateStamp): LongInt; syscall AOS_DOSBase 123;
|
||||||
|
function DOSDateToStr(Datetime: _PDateTime): LongBool; syscall AOS_DOSBase 124;
|
||||||
|
function DOSStrToDate(DateTime: _PDateTime): LongBool; syscall AOS_DOSBase 125;
|
||||||
|
function InternalLoadSeg(Fh: BPTR; Table: BPTR; const FuncArray: PLongInt; var Stack: LongInt): BPTR; syscall AOS_DOSBase 126;
|
||||||
|
function InternalUnLoadSeg(SegList: BPTR; FreeFunc: TProcedure): LongBool; syscall AOS_DOSBase 127;
|
||||||
|
function NewLoadSeg(const File_: STRPTR; const Tags: PTagItem): BPTR; syscall AOS_DOSBase 128;
|
||||||
|
function NewLoadSegTagList(const File_: STRPTR; const Tags: PTagItem): BPTR; syscall AOS_DOSBase 128;
|
||||||
|
function AddSegment(const Name: STRPTR; Seg: BPTR; Type_: LongInt): LongBool; syscall AOS_DOSBase 129;
|
||||||
|
function FindSegment(const Name: STRPTR; const Seg: PSegment; System: LongBool): PSegment; syscall AOS_DOSBase 130;
|
||||||
|
function RemSegment(Seg: PSegment): LongInt; syscall AOS_DOSBase 131;
|
||||||
|
function CheckSignal(Mask: LongInt): LongInt; syscall AOS_DOSBase 132;
|
||||||
|
function ReadArgs(const Template: STRPTR; Array_: PIPTR; RdArgs: PRDArgs): PRDArgs; syscall AOS_DOSBase 133;
|
||||||
|
function FindArg(const Template: STRPTR; const KeyWord: STRPTR): LongInt; syscall AOS_DOSBase 134;
|
||||||
|
function ReadItem(const Buffer: STRPTR; MaxChars: LongInt; CSource: PCSource): LongInt; syscall AOS_DOSBase 135;
|
||||||
|
function StrToLong(const String_: STRPTR; var Value: LongInt): LongInt; syscall AOS_DOSBase 136;
|
||||||
|
function MatchFirst(const Pat: STRPTR; AP: PAnchorPath): LongInt; syscall AOS_DOSBase 137;
|
||||||
|
function MatchNext(AP: PAnchorPath): LongInt; syscall AOS_DOSBase 138;
|
||||||
|
procedure MatchEnd(AP: PAnchorPath); syscall AOS_DOSBase 139;
|
||||||
|
function ParsePattern(const Source: STRPTR; Dest: STRPTR; DestLength: LongInt): LongInt; syscall AOS_DOSBase 140;
|
||||||
|
function MatchPattern(const Pat: STRPTR; Str: STRPTR): LongBool; syscall AOS_DOSBase 141;
|
||||||
|
procedure FreeArgs(Args: PRDArgs); syscall AOS_DOSBase 143;
|
||||||
|
function FilePart(const Path: STRPTR): STRPTR; syscall AOS_DOSBase 145;
|
||||||
|
function PathPart(const Path: STRPTR): STRPTR; syscall AOS_DOSBase 146;
|
||||||
|
function AddPart(DirName: STRPTR; const FileName: STRPTR; Size: LongWord): LongBool; syscall AOS_DOSBase 147;
|
||||||
|
function StartNotify(Notify: PNotifyRequest): LongBool; syscall AOS_DOSBase 148;
|
||||||
|
procedure EndNotify(Notify: PNotifyRequest); syscall AOS_DOSBase 149;
|
||||||
|
function SetVar(const Name: STRPTR; Buffer: PChar; Size: LongInt; Flags: LongInt): LongBool; syscall AOS_DOSBase 150;
|
||||||
|
function GetVar(const Name: STRPTR; Buffer: STRPTR; Size: LongInt; Flags: LongInt): LongInt; syscall AOS_DOSBase 151;
|
||||||
|
function DeleteVar(const Name: STRPTR; Flags: LongWord): LongInt; syscall AOS_DOSBase 152;
|
||||||
|
function FindVar(const Name: STRPTR; Type_: LongWord): PLocalVar; syscall AOS_DOSBase 153;
|
||||||
|
function DosGetLocalizedString(StringNum: LongInt): STRPTR; syscall AOS_DOSBase 154;
|
||||||
|
function CliInitNewcli(Dp: PDosPacket): IPTR; syscall AOS_DOSBase 155;
|
||||||
|
function CliInitRun(Dp: PDosPacket): IPTR; syscall AOS_DOSBase 156;
|
||||||
function WriteChars(const Buf: STRPTR; BufLen: LongWord): LongInt; syscall AOS_DOSBase 157;
|
function WriteChars(const Buf: STRPTR; BufLen: LongWord): LongInt; syscall AOS_DOSBase 157;
|
||||||
|
function PutStr(const String_: STRPTR): LongInt; syscall AOS_DOSBase 158;
|
||||||
|
function VPrintf(const Format: STRPTR; var ArgArray: IPTR): LongInt; syscall AOS_DOSBase 159;
|
||||||
|
function ParsePatternNoCase(const Source: STRPTR; Dest: STRPTR; DestLen: LongInt): LongInt; syscall AOS_DOSBase 161;
|
||||||
|
function MatchPatternNoCase(const Pat: STRPTR; Str: STRPTR): LongBool; syscall AOS_DOSBase 162;
|
||||||
|
function DosGetString(StringNum: LongInt): STRPTR; syscall AOS_DOSBase 163;
|
||||||
|
function SameDevice(Lock1: BPTR; Lock2: BPTR): LongBool; syscall AOS_DOSBase 164;
|
||||||
|
procedure ExAllEnd(Lock: BPTR; Buffer: PExAllData; Size: LongInt; Data: LongInt; Control: PExAllControl); syscall AOS_DOSBase 165;
|
||||||
|
function SetOwner(const Name: STRPTR; Owner_Info: LongWord): LongBool; syscall AOS_DOSBase 166;
|
||||||
|
function ScanVars(Hook: PHook; Flags: LongWord; UserData: APTR): LongInt; syscall AOS_DOSBase 167;
|
||||||
|
|
||||||
|
{$ifdef AROS_ABIv0}
|
||||||
|
function RunHandler(DevNode: PDeviceNode; Path: PChar): PMsgPort; syscall AOS_DOSBase 27;
|
||||||
|
function DosError(): BPTR; syscall AOS_DOSBase 142;
|
||||||
|
function SelectError(Fh: BPTR): BPTR; syscall AOS_DOSBase 144;
|
||||||
|
function Pipe(const Name: STRPTR; var Reader: BPTR; var Writer: BPTR): LongInt; syscall AOS_DOSBase 160;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
{$ifdef AROS_ABIv1}
|
||||||
|
function DosError(): BPTR;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
function ReadChar(): LongInt;
|
function ReadChar(): LongInt;
|
||||||
function WriteChar(c: LongInt): LongInt;
|
function WriteChar(c: LongInt): LongInt;
|
||||||
@ -2534,6 +2541,20 @@ begin
|
|||||||
UnReadChar := UnGetC(DosInput(),c);
|
UnReadChar := UnGetC(DosInput(),c);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$ifdef AROS_ABIv1}
|
||||||
|
function DosError(): BPTR;
|
||||||
|
var
|
||||||
|
P: PProcess;
|
||||||
|
begin
|
||||||
|
DosError := nil;
|
||||||
|
P := PProcess(FindTask(nil));
|
||||||
|
if Assigned(P) then
|
||||||
|
DosError := P^.pr_CES;
|
||||||
|
if DosError = nil then
|
||||||
|
DosError := DosOutput();
|
||||||
|
end;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
end. (* UNIT DOS *)
|
end. (* UNIT DOS *)
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -19,7 +19,9 @@ function dosRead(_file: BPTR; buffer: Pointer; length: longint): longint; syscal
|
|||||||
function dosWrite(_file: BPTR; buffer: Pointer; length: longint): longint; syscall AOS_DOSBase 8;
|
function dosWrite(_file: BPTR; buffer: Pointer; length: longint): longint; syscall AOS_DOSBase 8;
|
||||||
function dosInput: BPTR; syscall AOS_DOSBase 9;
|
function dosInput: BPTR; syscall AOS_DOSBase 9;
|
||||||
function dosOutput: BPTR; syscall AOS_DOSBase 10;
|
function dosOutput: BPTR; syscall AOS_DOSBase 10;
|
||||||
|
{$ifdef AROS_ABIv0}
|
||||||
function DosError1: BPTR; syscall AOS_DOSBase 142;
|
function DosError1: BPTR; syscall AOS_DOSBase 142;
|
||||||
|
{$endif}
|
||||||
function dosSeek(_file: BPTR; position: longint;offset: longint): longint; syscall AOS_DOSBase 11;
|
function dosSeek(_file: BPTR; position: longint;offset: longint): longint; syscall AOS_DOSBase 11;
|
||||||
function dosDeleteFile(const name: PChar): LongBool; syscall AOS_DOSBase 12;
|
function dosDeleteFile(const name: PChar): LongBool; syscall AOS_DOSBase 12;
|
||||||
function dosRename(const oldName: PChar;newName: PChar): LongInt; syscall AOS_DOSBase 13;
|
function dosRename(const oldName: PChar;newName: PChar): LongInt; syscall AOS_DOSBase 13;
|
||||||
@ -57,3 +59,17 @@ function GetVar(name: PChar; buffer: PChar; size: longint; flags: longword): lon
|
|||||||
function ExamineFH(Fh: BPTR; Fib: PFileInfoBlock): LongBool; syscall AOS_DOSBase 65;
|
function ExamineFH(Fh: BPTR; Fib: PFileInfoBlock): LongBool; syscall AOS_DOSBase 65;
|
||||||
function NameFromFH(Fh: BPTR; Buffer: PChar; Length: LongInt): LongBool; syscall AOS_DOSBase 68;
|
function NameFromFH(Fh: BPTR; Buffer: PChar; Length: LongInt): LongBool; syscall AOS_DOSBase 68;
|
||||||
|
|
||||||
|
|
||||||
|
{$ifdef AROS_ABIv1}
|
||||||
|
function DosError1(): BPTR;
|
||||||
|
var
|
||||||
|
P: PProcess;
|
||||||
|
begin
|
||||||
|
DosError1 := 0;
|
||||||
|
P := PProcess(FindTask(nil));
|
||||||
|
if Assigned(P) then
|
||||||
|
DosError1 := P^.pr_CES;
|
||||||
|
if DosError1 = 0 then
|
||||||
|
DosError1 := DosOutput();
|
||||||
|
end;
|
||||||
|
{$endif}
|
||||||
|
|||||||
@ -219,11 +219,7 @@ begin
|
|||||||
if AOS_wbMsg = nil then begin
|
if AOS_wbMsg = nil then begin
|
||||||
StdInputHandle := THandle(dosInput);
|
StdInputHandle := THandle(dosInput);
|
||||||
StdOutputHandle := THandle(dosOutput);
|
StdOutputHandle := THandle(dosOutput);
|
||||||
{$ifdef CPU64}
|
|
||||||
StdErrorHandle := THandle(DosOutput);
|
|
||||||
{$else}
|
|
||||||
StdErrorHandle := THandle(DosError1);
|
StdErrorHandle := THandle(DosError1);
|
||||||
{$endif}
|
|
||||||
end else begin
|
end else begin
|
||||||
AOS_ConHandle := Open(AOS_ConName, MODE_OLDFILE);
|
AOS_ConHandle := Open(AOS_ConName, MODE_OLDFILE);
|
||||||
if AOS_ConHandle <> 0 then begin
|
if AOS_ConHandle <> 0 then begin
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user