kolibrios-fun/programs/develop/fp/rtl/dos.pp
bw 6c47c845cb FP 2.3.1 (SVN 8373)
git-svn-id: svn://kolibrios.org@619 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-09-04 13:23:24 +00:00

81 lines
2.3 KiB
ObjectPascal

unit Dos;
interface
type
SearchRec = record
{FindHandle : THandle;
WinFindData : TWinFindData;
ExcludeAttr : longint;}
Time : longint;
Size : longint;
Attr : longint;
Name : string;
end;
{$i dosh.inc}
implementation
procedure Intr(intno: byte; var regs: registers); begin end;
procedure MSDos(var regs: registers); begin end;
function DosVersion: Word; begin end;
procedure GetDate(var year, month, mday, wday: word); begin end;
procedure GetTime(var hour, minute, second, sec100: word); begin end;
procedure SetDate(year,month,day: word); begin end;
procedure SetTime(hour,minute,second,sec100: word); begin end;
procedure UnpackTime(p: longint; var t: datetime); begin end;
procedure PackTime(var t: datetime; var p: longint); begin end;
procedure Exec(const path: pathstr; const comline: comstr); begin end;
function DosExitCode: word; begin end;
function DiskFree(drive: byte) : int64; begin end;
function DiskSize(drive: byte) : int64; begin end;
procedure FindFirst(const path: pathstr; attr: word; var f: searchRec); begin end;
procedure FindNext(var f: searchRec); begin end;
procedure FindClose(Var f: SearchRec); begin end;
procedure GetFAttr(var f; var attr: word); begin end;
procedure GetFTime(var f; var time: longint); begin end;
function FSearch(path: pathstr; dirlist: string): pathstr; begin end;
function FExpand(const path: pathstr): pathstr; begin end;
procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr); begin end;
function GetShortName(var p : String) : boolean; begin end;
function GetLongName(var p : String) : boolean; begin end;
function EnvCount: longint; begin end;
function EnvStr (Index: longint): string; begin end;
function GetEnv(envvar: string): string; begin end;
procedure SetFAttr(var f; attr: word); begin end;
procedure SetFTime(var f; time: longint); begin end;
procedure GetCBreak(var breakvalue: boolean); begin end;
procedure SetCBreak(breakvalue: boolean); begin end;
procedure GetVerify(var verify: boolean); begin end;
procedure SetVerify(verify: boolean); begin end;
procedure SwapVectors; begin end;
procedure GetIntVec(intno: byte; var vector: pointer); begin end;
procedure SetIntVec(intno: byte; vector: pointer); begin end;
procedure Keep(exitcode: word); begin end;
function GetMsCount: int64; begin end;
end.