|
|
|
|
function KbdDataAvailable
() : boolean; stdcall;
exports KbdDataAvailable name 'DosLib_KbdDataAvailable';
procedure GetExtendedError
(var Error : cardinal;
var ErrClass : cardinal;
var Action : cardinal;
var locus : cardinal); stdcall;
exports GetExtendedError name 'DosLib_GetExtendedError';
function PrinterStatus
(const port : cardinal) : char; stdcall;
exports PrinterStatus name 'DosLib_PrinterStatus';
procedure GetReturnCode
(var returnType : cardinal;
var returnCode : cardinal); stdcall;
exports GetReturnCode name 'DosLib_GetReturnCode';
procedure GetDate
(var Year : cardinal;
var Month : cardinal;
var Day : cardinal;
var weekDay : cardinal); stdcall;
exports GetDate name 'DosLib_GetDate';
procedure SetDate
(const Year : cardinal;
const Month : cardinal;
const Day : cardinal;
var Status : boolean); stdcall;
exports SetDate name 'DosLib_SetDate';
procedure GetTime
(var Hour : cardinal;
var Minute : cardinal;
var Second : cardinal;
var hundredths : cardinal); stdcall;
exports GetTime name 'DosLib_GetTime';
procedure SetTime
(const Hour : cardinal;
const Minute : cardinal;
const Second : cardinal;
const hundredths : cardinal;
var Status : boolean); stdcall;
exports SetTime name 'DosLib_SetTime';
procedure GetCmndLine
(var line : array of char); overload; stdcall;
exports GetCmndLine (var line : array of char) name 'DosLib_GetCmndLine';
procedure GetCmndLine
(var line : string); overload; stdcall;
exports GetCmndLine (var line : string) name 'DosLib_STRGetCmndLine';
procedure GetVersion
(var major : cardinal;
var minor : cardinal); stdcall;
exports GetVersion name 'DosLib_GetVersion';
procedure GetDiskFreeSpace
(const DriveOrUNC : array of char;
var clustersAvail : cardinal;
var clustPerDrv : cardinal;
var bytesPerSec : cardinal;
var secPerClust : cardinal); overload; stdcall;
exports GetDiskFreeSpace (const DriveOrUNC : array of char;
var clustersAvail : cardinal;
var clustPerDrv : cardinal;
var bytesPerSec : cardinal;
var secPerClust : cardinal) name 'DosLib_GetDiskFreeSpace';
procedure GetDiskFreeSpace
(const DriveOrUNC : string;
var clustersAvail : cardinal;
var clustPerDrv : cardinal;
var bytesPerSec : cardinal;
var secPerClust : cardinal); overload; stdcall;
exports GetDiskFreeSpace (const DriveOrUNC : string;
var clustersAvail : cardinal;
var clustPerDrv : cardinal;
var bytesPerSec : cardinal;
var secPerClust : cardinal) name 'DosLib_STRGetDiskFreeSpace';
procedure MakeDirectory
(const directoryName : array of char;
var returnCode : cardinal); overload; stdcall;
exports MakeDirectory (const directoryName : array of char;
var returnCode : cardinal) name 'DosLib_MakeDirectory';
procedure MakeDirectory
(const directoryName : string;
var returnCode : cardinal); overload; stdcall;
exports MakeDirectory (const directoryName : string;
var returnCode : cardinal) name 'DosLib_STRMakeDirectory';
procedure RemoveDirectory
(const directoryName : array of char;
var returnCode : cardinal); overload; stdcall;
exports RemoveDirectory (const directoryName : array of char;
var returnCode : cardinal) name 'DosLib_RemoveDirectory';
procedure RemoveDirectory
(const directoryName : string;
var returnCode : cardinal); overload; stdcall;
exports RemoveDirectory (const directoryName : string;
var returnCode : cardinal) name 'DosLib_STRRemoveDirectory';
procedure ChangeDirectory
(const directoryName : array of char;
var returnCode : cardinal); overload; stdcall;
exports ChangeDirectory (const directoryName : array of char;
var returnCode : cardinal) name 'DosLib_ChangeDirectory';
procedure ChangeDirectory
(const directoryName : string;
var returnCode : cardinal); overload; stdcall;
exports ChangeDirectory (const directoryName : string;
var returnCode : cardinal) name 'DosLib_STRChangeDirectory';
procedure CreateFile
(const FileName : array of char;
const attribute : AttrType;
var handle : HandleType;
var returnCode : cardinal); overload; stdcall;
exports CreateFile (const FileName : array of char;
const attribute : AttrType;
var handle : HandleType;
var returnCode : cardinal) name 'DosLib_CreateFile';
procedure CreateFile
(const FileName : string;
const attribute : AttrType;
var handle : HandleType;
var returnCode : cardinal); overload; stdcall;
exports CreateFile (const FileName : string;
const attribute : AttrType;
var handle : HandleType;
var returnCode : cardinal) name 'DosLib_STRCreateFile';
procedure OpenFile
(const FileName : array of char;
const openMode : OpenType;
var handle : HandleType;
var returnCode : cardinal); overload; stdcall;
exports OpenFile (const FileName : array of char;
const openMode : OpenType;
var handle : HandleType;
var returnCode : cardinal) name 'DosLib_OpenFile';
procedure OpenFile
(const FileName : string;
const openMode : OpenType;
var handle : HandleType;
var returnCode : cardinal); overload; stdcall;
exports OpenFile (const FileName : string;
const openMode : OpenType;
var handle : HandleType;
var returnCode : cardinal) name 'DosLib_STROpenFile';
procedure CloseFile
(const handle : HandleType;
var returnCode : cardinal); stdcall;
exports CloseFile name 'DosLib_CloseFile';
procedure CommitFile
(const handle : HandleType;
var returnCode : cardinal); stdcall;
exports CommitFile name 'DosLib_CommitFile';
procedure ReadFile
(const handle : HandleType;
const Buffer : pointer;
var Count : cardinal;
var returnCode : cardinal); stdcall;
exports ReadFile name 'DosLib_ReadFile';
procedure WriteFile
(const handle : HandleType;
const Buffer : pointer;
var Count : cardinal;
var returnCode : cardinal); stdcall;
exports WriteFile name 'DosLib_WriteFile';
procedure DeleteFile
(const FileName : array of char;
var returnCode : cardinal); overload; stdcall;
exports DeleteFile (const FileName : array of char;
var returnCode : cardinal) name 'DosLib_DeleteFile';
procedure DeleteFile
(const FileName : string;
var returnCode : cardinal); overload; stdcall;
exports DeleteFile (const FileName : string;
var returnCode : cardinal) name 'DosLib_STRDeleteFile';
procedure LSeek
(const handle : HandleType;
const theOffset : ModSys.INT32;
const Method : cardinal;
var newPos : ModSys.INT32;
var returnCode : cardinal); stdcall;
exports LSeek name 'DosLib_LSeek';
procedure GetFileMode
(const FileName : array of char;
var attribute : AttrType;
var returnCode : cardinal); overload; stdcall;
exports GetFileMode (const FileName : array of char;
var attribute : AttrType;
var returnCode : cardinal) name 'DosLib_GetFileMode';
procedure GetFileMode
(const FileName : string;
var attribute : AttrType;
var returnCode : cardinal); overload; stdcall;
exports GetFileMode (const FileName : string;
var attribute : AttrType;
var returnCode : cardinal) name 'DosLib_STRGetFileMode';
procedure SetFileMode
(const FileName : array of char;
const attribute : AttrType;
var returnCode : cardinal); overload; stdcall;
exports SetFileMode (const FileName : array of char;
const attribute : AttrType;
var returnCode : cardinal) name 'DosLib_SetFileMode';
procedure SetFileMode
(const FileName : string;
const attribute : AttrType;
var returnCode : cardinal); overload; stdcall;
exports SetFileMode (const FileName : string;
const attribute : AttrType;
var returnCode : cardinal) name 'DosLib_STRSetFileMode';
procedure GetCurrentDirectory
(var Directory : array of char;
var returnCode : cardinal); overload; stdcall;
exports GetCurrentDirectory (var Directory : array of char;
var returnCode : cardinal) name 'DosLib_GetCurrentDirectory';
procedure GetCurrentDirectory
(var Directory : string;
var returnCode : cardinal); overload; stdcall;
exports GetCurrentDirectory (var Directory : string;
var returnCode : cardinal) name 'DosLib_STRGetCurrentDirectory';
procedure FindFirstFile
(const filePattern : array of char;
const searchBuffer : SearchRecordPtr;
const attribute : AttrType;
var returnCode : cardinal); overload; stdcall;
exports FindFirstFile (const filePattern : array of char;
const searchBuffer : SearchRecordPtr;
const attribute : AttrType;
var returnCode : cardinal) name 'DosLib_FindFirstFile';
procedure FindFirstFile
(const filePattern : string;
const searchBuffer : SearchRecordPtr;
const attribute : AttrType;
var returnCode : cardinal); overload; stdcall;
exports FindFirstFile (const filePattern : string;
const searchBuffer : SearchRecordPtr;
const attribute : AttrType;
var returnCode : cardinal) name 'DosLib_STRFindFirstFile';
procedure FindNextFile
(const searchBuffer : SearchRecordPtr;
var returnCode : cardinal); stdcall;
exports FindNextFile name 'DosLib_FindNextFile';
procedure RenameFile
(const OldFileName : array of char;
const NewFileName : array of char;
var returnCode : cardinal); overload; stdcall;
exports RenameFile (const OldFileName : array of char;
const NewFileName : array of char;
var returnCode : cardinal) name 'DosLib_RenameFile';
procedure RenameFile
(const OldFileName : string;
const NewFileName : string;
var returnCode : cardinal); overload; stdcall;
exports RenameFile (const OldFileName : string;
const NewFileName : string;
var returnCode : cardinal) name 'DosLib_STRRenameFile';
procedure GetFileDate
(const handle : HandleType;
var date : ModSys.INT32;
var Time : ModSys.INT32;
var returnCode : cardinal); stdcall;
exports GetFileDate name 'DosLib_GetFileDate';
procedure SetFileDate
(const handle : HandleType;
const date : ModSys.INT32;
const Time : ModSys.INT32;
var returnCode : cardinal); stdcall;
exports SetFileDate name 'DosLib_SetFileDate';
procedure SetHandleCount
(const Count : cardinal;
var returnCode : cardinal); stdcall;
exports SetHandleCount name 'DosLib_SetHandleCount';
procedure DosExec
(const FileName : array of char;
const parms : array of char;
const TheFunction : cardinal;
var returnCode : cardinal); overload; stdcall;
exports DosExec (const FileName : array of char;
const parms : array of char;
const TheFunction : cardinal;
var returnCode : cardinal) name 'DosLib_DosExec';
procedure DosExec
(const FileName : string;
const parms : string;
const TheFunction : cardinal;
var returnCode : cardinal); overload; stdcall;
exports DosExec (const FileName : string;
const parms : string;
const TheFunction : cardinal;
var returnCode : cardinal) name 'DosLib_STRDosExec';
Send mail to
warren.merrill@inl.gov
with questions or comments about this web site.
Copyright © 1989-2006 Battelle Energy Alliance