Units initialization/finalization support added

2025-09-21 22:53:51 +02:00 · 2020-06-07 19:39:30 +03:00
parent 92d967d122
commit bf2e9bcc4b
9 changed files with 104 additions and 42 deletions
--- a/Examples/Console/GetCurrentDir/GetCurrentDir.dpr
+++ b/Examples/Console/GetCurrentDir/GetCurrentDir.dpr
@@ -13,13 +13,11 @@ var
  Buffer: array[0..BUFFER_SIZE - 1] of Char;

 begin
-  ConsoleInit('Get Current Directory');
+  InitConsole('Get Current Directory', False);

  GetCurrentDirectory(Buffer, BUFFER_SIZE);

  Write('AppPath is "%s"'#10, AppPath^);
  Write('CmdLine is "%s"'#10, CmdLine^);
  Write('Current Directory is "%s"'#10, Buffer);
-
-  ConsoleExit(False);
 end.