mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-22 15:13:49 +02:00
Freeman
9888dd9095
Extended I/O procedures (CoreLite-like) removed, initial Read/ReadLn procedures added to System unit.
51 lines
1.6 KiB
ObjectPascal
51 lines
1.6 KiB
ObjectPascal
program ReadFolderApp;
|
|
|
|
uses
|
|
KolibriOS, CRT, SysUtils;
|
|
|
|
const
|
|
FolderPath = '/sys';
|
|
|
|
var
|
|
FolderInformation: TFolderInformation;
|
|
BlocksRead: LongWord;
|
|
Pos: LongWord;
|
|
|
|
begin
|
|
InitConsole('Read Folder');
|
|
|
|
if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then
|
|
with FolderInformation do
|
|
con_printf('Folder "%s" contains %u files and/or folders.'#10#10, FolderPath, FileCount)
|
|
else
|
|
con_printf('Folder "%s" can not be read.'#10, FolderPath);
|
|
|
|
Pos := 0;
|
|
while ReadFolder(FolderPath, FolderInformation, 1, Pos, 0, BlocksRead) = 0 do
|
|
begin
|
|
with FolderInformation, FileInformation[0] do
|
|
begin
|
|
con_printf( 'File Name = %s'#10, Name);
|
|
with Attributes do
|
|
begin
|
|
con_printf( 'SizeLo = %u'#10, Int64Rec(Size).Lo);
|
|
con_printf( 'SizeHi = %u'#10, Int64Rec(Size).Hi);
|
|
with Modify.Date do
|
|
con_printf('Modify Date = %02d.%02d.%02d'#10, Day, Month, Year);
|
|
with Modify.Time do
|
|
con_printf('Modify Time = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
|
|
with Access.Date do
|
|
con_printf('Access Date = %02d.%02d.%02d'#10, Day, Month, Year);
|
|
with Access.Time do
|
|
con_printf('Access Time = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
|
|
with Creation.Date do
|
|
con_printf('Creation Date = %02d.%02d.%02d'#10, Day, Month, Year);
|
|
with Creation.Time do
|
|
con_printf('Creation Time = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
|
|
con_printf( 'Attributes = 0x%08x'#10#10, Attributes);
|
|
end;
|
|
end;
|
|
Inc(Pos);
|
|
end;
|
|
end.
|