Program exit code support in KoW

This commit is contained in:
2021-01-10 03:56:22 +03:00
parent d7a6530b18
commit fa788aeb37
3 changed files with 17 additions and 6 deletions

View File

@@ -12,12 +12,15 @@ type
HRSRC = THandle;
var
ExitCode: Integer;
MainWindow: THandle;
const
kernel32 = 'kernel32.dll';
user32 = 'user32.dll';
procedure _Halt(ExitCode: Integer);
procedure ExitProcess(ExitCode: Cardinal); stdcall;
external kernel32 name 'ExitProcess';
function GetCommandLine: PKolibriChar; stdcall;