KoW for console applications added

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

View File

@@ -3,12 +3,19 @@ program LoadFileApp;
uses
KolibriOS, CRT;
const
{$IFDEF KolibriOS}
FileName = '/sys/example.asm';
{$ELSE}
FileName = '..\..\Lib\KoW\CRT.inc';
{$ENDIF}
var
FileSize: LongWord;
Buffer: Pointer;
Buffer: PKolibriChar;
begin
InitConsole('Load File');
Buffer := LoadFile('/sys/example.asm', FileSize);
Buffer := LoadFile(FileName, FileSize);
con_write_string(Buffer, FileSize);
end.