blob: 654bc6f5a8adafdaaeb8de62ddd299450b703e24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Program Example45;
{ This program demonstrates the GetDirs function }
{$H+}
Uses sysutils;
Var Dirs : Array[0..127] of pchar;
I,Count : longint;
Dir,NewDir : String;
Begin
Dir:=GetCurrentDir;
Writeln ('Dir : ',Dir);
NewDir:='';
count:=GetDirs(Dir,Dirs);
For I:=0 to Count-1 do
begin
NewDir:=NewDir+'/'+StrPas(Dirs[I]);
Writeln (NewDir);
end;
End.
|
