{$APPTYPE CONSOLE} support added

This commit is contained in:
2020-12-27 01:34:54 +03:00
parent 9888dd9095
commit b52068a7f2
7 changed files with 26 additions and 25 deletions

View File

@@ -237,6 +237,9 @@ initialization
Pointer(@con_write_asciiz) := GetProcAddress(hConsole, 'con_write_asciiz');
Pointer(@con_write_string) := GetProcAddress(hConsole, 'con_write_string');
if IsConsole then
InitConsole(AppPath);
finalization
if Assigned(con_exit) then
con_exit(CloseWindow);