Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-22 07:03:53 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

KoW for console applications added

Browse Source
This commit is contained in:
Владислав Джавадов
2021-01-08 18:39:17 +03:00
parent 305cd924f7
commit 5f3fca1705
29 changed files with 824 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Examples/Console/ReadFolder/ReadFolder.dpr
View File

@@ -4,45 +4,38 @@ uses
KolibriOS, CRT, SysUtils;
const
FolderPath = '/sys';
Path = '/sys';
var
FolderInformation: TFolderInformation;
Info: 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)
if ReadFolder(Path, Info, 0, 0, 0, BlocksRead) = 0 then
con_printf('Folder "%s" contains %u files and/or folders.'#10#10, Path, Info.FileCount)
else
con_printf('Folder "%s" can not be read.'#10, FolderPath);
con_printf('Folder "%s" cannot be read.'#10, Path);
Pos := 0;
while ReadFolder(FolderPath, FolderInformation, 1, Pos, 0, BlocksRead) = 0 do
while ReadFolder(Path, Info, 1, Pos, 0, BlocksRead) = 0 do
begin
with FolderInformation, FileInformation[0] do
with Info, FileInformation[0] do
begin
con_printf( 'File Name = %s'#10, Name);
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);
with Int64Rec(Size) do
con_printf('Size = %u:%u'#10, Hi, Lo);
with Creation, Date, Time do
con_printf('Created = %02d.%02d.%02d %02d:%02d:%02d'#10, Day, Month, Year, Hours, Minutes, Seconds);
with Modify, Date, Time do
con_printf('Modified = %02d.%02d.%02d %02d:%02d:%02d'#10, Day, Month, Year, Hours, Minutes, Seconds);
with Access, Date, Time do
con_printf('Accessed = %02d.%02d.%02d %02d:%02d:%02d'#10, Day, Month, Year, Hours, Minutes, Seconds);
con_printf( 'Attributes = 0x%08x'#10#10, Attributes);
end;
end;
Inc(Pos);