SDK/Lib/KoW/System.inc

(*
    KolibriOS on Windows (KoW) RTL System unit

    Copyright (c) 2021 Delphi SDK for KolibriOS team
*)

const
  HEAP_NO_SERIALIZE = $00001;

var
  ModuleFileName: array[0..1023] of KolibriChar;
  HeapHandle: THandle;

procedure InitKoW;
begin
  GetModuleFileName(0, ModuleFileName, Length(ModuleFileName));
  AppPath := @ModuleFileName;

  CmdLine := GetCommandLine;

  if IsConsole then
    TTextRec(Output).Handle := GetStdHandle(LongWord(-11));

  HeapHandle := GetProcessHeap;
end;

procedure _Halt0;
asm
        PUSH EAX
        CALL FinalizeUnits
        CALL ExitProcess
end;

procedure ErrorMessage(Msg: PKolibriChar; Count: Byte);
const
  MB_ICONERROR = $0010;
  MB_TASKMODAL = $2000;
  EOL: array[0..1] of KolibriChar = #13#10;
var
  Buf: array[Low(Byte)..High(Byte) + 1] of KolibriChar;
  BytesWritten, Flags: Cardinal;
begin
  if TTextRec(Output).Handle <> 0 then
  begin
    WriteFile(TTextRec(Output).Handle, Msg^, Count, BytesWritten, nil);
    WriteFile(TTextRec(Output).Handle, EOL, SizeOf(EOL), BytesWritten, nil);
  end
  else
  begin
    if MainWindow <> 0 then
      Flags := MB_ICONERROR
    else
      Flags := MB_ICONERROR or MB_TASKMODAL;
    Move(Msg^, Buf, Count);
    Msg[Count] := #0;  
    MessageBox(MainWindow, Msg, nil, Flags);
  end;
end;

function SysFreeMem(P: Pointer): Integer;
begin
  Result := Integer(not HeapFree(HeapHandle, HEAP_NO_SERIALIZE, P));
end;

function SysGetMem(Size: Integer): Pointer;
begin
  Result := HeapAlloc(HeapHandle, 2, Size);
end;

function SysReallocMem(P: Pointer; Size: Integer): Pointer;
begin
  Result := HeapReAlloc(HeapHandle, HEAP_NO_SERIALIZE, P, Size);
end;