Example projects renamed, simplified and formatted to the Borland/Embarcadero style

This commit is contained in:
2020-05-10 21:38:18 +03:00
parent 8b9324a6ce
commit db03f7a14a
56 changed files with 1128 additions and 1529 deletions

View File

@@ -0,0 +1,28 @@
program LoadFileApp;
uses
KolibriOS;
var
hConsole: Pointer;
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PChar); stdcall;
ConsoleExit: procedure(bCloseWindow: Cardinal); stdcall;
WriteN: procedure(Str: PChar; Count: LongWord); stdcall;
FileSize: LongWord;
Buffer: Pointer;
begin
hConsole := LoadLibrary('/sys/lib/console.obj');
ConsoleInit := GetProcAddress(hConsole, 'con_init');
ConsoleExit := GetProcAddress(hConsole, 'con_exit');
WriteN := GetProcAddress(hConsole, 'con_write_string');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Test');
Buffer := LoadFile('/sys/example.asm', FileSize);
WriteN(Buffer, FileSize);
ConsoleExit(0);
TerminateThread;
end.

View File

@@ -0,0 +1 @@
../make.bat Unit1