mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-21 02:30:07 +02:00
22 lines
330 B
ObjectPascal
22 lines
330 B
ObjectPascal
program LoadFileApp;
|
|
|
|
uses
|
|
KolibriOS, CRT;
|
|
|
|
const
|
|
{$IFDEF KolibriOS}
|
|
FileName = '/sys/example.asm';
|
|
{$ELSE}
|
|
FileName = '..\..\Lib\KoW\CRT.inc';
|
|
{$ENDIF}
|
|
|
|
var
|
|
FileSize: LongWord;
|
|
Buffer: PKolibriChar;
|
|
|
|
begin
|
|
InitConsole('Load File');
|
|
Buffer := LoadFile(FileName, FileSize);
|
|
con_write_string(Buffer, FileSize);
|
|
end.
|