Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. {TODO}
  2.  
  3. procedure mkdir(const s: String); [IOCHECK];
  4. begin
  5.   InOutRes := 211;
  6. end;
  7.  
  8. procedure rmdir(const s: String); [IOCHECK];
  9. begin
  10.   InOutRes := 211;
  11. end;
  12.  
  13. procedure chdir(const s: String); [IOCHECK];
  14. var
  15.   Path: array[Byte] of Char;
  16. begin
  17.   Path := s;
  18.   kos_setdir(Path);
  19.   InOutRes := 0;
  20. end;
  21.  
  22. procedure getdir(DriveNr: Byte; var Dir: ShortString);
  23. { DriveNr не используется, но всегда должен быть равен 0 }
  24. var
  25.   Path: array[Byte] of Char;
  26.   Size: Longword;
  27. begin
  28.   if DriveNr <> 0 then
  29.     InOutRes := 15 { Invalid drive number (неправильный номер устройства) }  else
  30.   begin
  31.     Size := kos_getdir(@Path, SizeOf(Path));
  32.     Dir := StrPas(Path);
  33.     InOutRes := 0;
  34.   end;
  35. end;
  36.