Subversion Repositories Kolibri OS

Rev

Rev 616 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. unit Dos;
  2.  
  3.  
  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;
  17.  
  18.  
  19. {$i dosh.inc}
  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.  
  76.  
  77. function  GetMsCount: int64; begin end;
  78.  
  79.  
  80. end.
  81.