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

KolibriOS unit formatted to the Borland/Embarcadero style, migrated to native Delphi types

Browse Source
This commit is contained in:
Владислав Джавадов
2020-05-23 16:32:30 +03:00
parent eee4e1beeb
commit f77ebd28fc
13 changed files with 3502 additions and 3550 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Examples/ReadFolder/ReadFolder.dpr
View File

@@ -3,6 +3,11 @@ program ReadFolderApp;
uses
KolibriOS;
type
TInt64Rec = packed record
Lo, Hi: LongWord;
end;
var
hConsole: Pointer;
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
@@ -41,17 +46,17 @@ begin
begin
with FolderInformation, FileInformation[0] do
begin
printf('FileName = %s'#10, FileName);
with FileAttributes do
printf('FileName = %s'#10, Name);
with Attributes 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('SizeLo = %u'#10, TInt64Rec(Size).Lo);
printf('SizeHi = %u'#10, TInt64Rec(Size).Hi);
with Modify.Date do printf('modifyDate = %02d.%02d.%02d'#10, Day, Month, Year);
with Modify.Time do printf('modifyTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
with Access.Date do printf('AccessDate = %02d.%02d.%02d'#10, Day, Month, Year);
with Access.Time do printf('AccessTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
with Creation.Date do printf('CreationDate = %02d.%02d.%02d'#10, Day, Month, Year);
with Creation.Time do printf('CreationTime = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
printf('Attributes = 0x%08x'#10, Attributes);
end;
end;