Project tree simplified

Examples/ReadFolder/ReadFolder.dpr

@@ -0,0 +1,64 @@
+program ReadFolderApp;
+
+uses
+  KolibriOS;
+
+var
+  hConsole: Pointer;
+  ConsoleInit:       procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
+  ConsoleExit:       procedure(bCloseWindow: Cardinal); stdcall;
+  printf:            function(const Format: PKolibriChar): Integer; cdecl varargs;
+
+const
+  FolderPath = '/sys';
+
+var
+  FolderInformation: TFolderInformation;
+  BlocksRead: LongWord;
+  Pos: LongWord;
+
+begin
+  hConsole          := LoadLibrary('/sys/lib/console.obj');
+  ConsoleInit       := GetProcAddress(hConsole, 'con_init');
+  ConsoleExit       := GetProcAddress(hConsole, 'con_exit');
+  printf            := GetProcAddress(hConsole, 'con_printf');
+
+  if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then
+    with FolderInformation do
+    begin
+      ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, {11 printf In Loop}11 * FileCount + {2 printf below}2 + 1, 'ReadFolder');
+      printf('Folder "%s" contains %u files and/or folders.'#10, FolderPath, FileCount);
+      printf(#10);
+    end
+  else
+  begin
+    ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'ReadFolder');
+    printf('Folder "%s" can not be read.'#10, FolderPath);
+  end;
+
+  Pos := 0;
+  while ReadFolder(FolderPath, FolderInformation, 1, Pos, 0, BlocksRead) = 0 do
+  begin
+    with FolderInformation, FileInformation[0] do
+    begin
+      printf('FileName     = %s'#10, FileName);
+      with FileAttributes do
+      begin
+        printf('SizeHi       = %u'#10, SizeHi);
+        printf('SizeLo       = %u'#10, SizeLo);
+        with modifyDate   do printf('modifyDate   = %02d.%02d.%02d'#10, Day, Month, Year);
+        with modifyTime   do printf('modifyTime   = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
+        with AccessDate   do printf('AccessDate   = %02d.%02d.%02d'#10, Day, Month, Year);
+        with AccessTime   do printf('AccessTime   = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
+        with CreationDate do printf('CreationDate = %02d.%02d.%02d'#10, Day, Month, Year);
+        with CreationTime do printf('CreationTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
+        printf('Attributes   = 0x%08x'#10, Attributes);
+      end;
+    end;
+    printf(#10);
+    Inc(Pos);
+  end;
+
+  ConsoleExit(0);
+  TerminateThread;
+end.

Examples/ReadFolder/build.bat

@@ -0,0 +1 @@
+@call "%~dp0..\..\Lib\build.bat" "%~dp0ReadFolder"