Rev 616 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 616 | Rev 619 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | unit Dos; |
1 | unit Dos; |
Line -... | Line 2... | ||
- | 2 | ||
2 | 3 | ||
Line -... | Line 4... | ||
- | 4 | interface |
|
- | 5 | ||
- | 6 | ||
- | 7 | type |
|
- | 8 | SearchRec = record |
|
- | 9 | {FindHandle : THandle; |
|
- | 10 | WinFindData : TWinFindData; |
|
- | 11 | ExcludeAttr : longint;} |
|
- | 12 | Time : longint; |
|
- | 13 | Size : longint; |
|
- | 14 | Attr : longint; |
|
- | 15 | Name : string; |
|
- | 16 | end; |
|
3 | interface |
17 | |
- | 18 | ||
Line 4... | Line 19... | ||
4 | 19 | {$i dosh.inc} |
|
Line -... | Line 20... | ||
- | 20 | ||
- | 21 | ||
- | 22 | implementation |
|
- | 23 | ||
- | 24 | ||
- | 25 | procedure Intr(intno: byte; var regs: registers); begin end; |
|
- | 26 | procedure MSDos(var regs: registers); begin end; |
|
- | 27 | ||
- | 28 | ||
- | 29 | function DosVersion: Word; begin end; |
|
- | 30 | procedure GetDate(var year, month, mday, wday: word); begin end; |
|
- | 31 | procedure GetTime(var hour, minute, second, sec100: word); begin end; |
|
- | 32 | procedure SetDate(year,month,day: word); begin end; |
|
- | 33 | procedure SetTime(hour,minute,second,sec100: word); begin end; |
|
- | 34 | procedure UnpackTime(p: longint; var t: datetime); begin end; |
|
- | 35 | procedure PackTime(var t: datetime; var p: longint); begin end; |
|
- | 36 | ||
- | 37 | ||
- | 38 | procedure Exec(const path: pathstr; const comline: comstr); begin end; |
|
- | 39 | function DosExitCode: word; begin end; |
|
- | 40 | ||
- | 41 | ||
- | 42 | function DiskFree(drive: byte) : int64; begin end; |
|
- | 43 | function DiskSize(drive: byte) : int64; begin end; |
|
- | 44 | procedure FindFirst(const path: pathstr; attr: word; var f: searchRec); begin end; |
|
- | 45 | procedure FindNext(var f: searchRec); begin end; |
|
- | 46 | procedure FindClose(Var f: SearchRec); begin end; |
|
- | 47 | ||
- | 48 | ||
- | 49 | procedure GetFAttr(var f; var attr: word); begin end; |
|
- | 50 | procedure GetFTime(var f; var time: longint); begin end; |
|
- | 51 | function FSearch(path: pathstr; dirlist: string): pathstr; begin end; |
|
- | 52 | function FExpand(const path: pathstr): pathstr; begin end; |
|
- | 53 | procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr); begin end; |
|
- | 54 | function GetShortName(var p : String) : boolean; begin end; |
|
- | 55 | function GetLongName(var p : String) : boolean; begin end; |
|
- | 56 | ||
- | 57 | ||
- | 58 | function EnvCount: longint; begin end; |
|
- | 59 | function EnvStr (Index: longint): string; begin end; |
|
- | 60 | function GetEnv(envvar: string): string; begin end; |
|
- | 61 | ||
- | 62 | ||
- | 63 | procedure SetFAttr(var f; attr: word); begin end; |
|
- | 64 | procedure SetFTime(var f; time: longint); begin end; |
|
- | 65 | procedure GetCBreak(var breakvalue: boolean); begin end; |
|
- | 66 | procedure SetCBreak(breakvalue: boolean); begin end; |
|
- | 67 | procedure GetVerify(var verify: boolean); begin end; |
|
- | 68 | procedure SetVerify(verify: boolean); begin end; |
|
- | 69 | ||
- | 70 | ||
- | 71 | procedure SwapVectors; begin end; |
|
- | 72 | procedure GetIntVec(intno: byte; var vector: pointer); begin end; |
|
- | 73 | procedure SetIntVec(intno: byte; vector: pointer); begin end; |
|
- | 74 | procedure Keep(exitcode: word); begin end; |
|
- | 75 | ||
5 | {$i filerec.inc} |
76 |