Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
616 bw 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;