system.pas

说明 ~~~~~~~~~~~~~~~ 各个目录中是各种模块的最小化版本的内核。 使用_Build.bat可以编译测试程序

unit System;

interface

procedure _InitLib;
procedure _HandleFinally;
procedure _halt0;

const
  Kernel32 = 'kernel32.dll';
  User32 = 'user32.dll';

type
  TGUID = record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;

type
  TInitContext = Integer;  // 未用

implementation

procedure _InitLib;
asm
end;

procedure _HandleFinally;
asm
end;

procedure _halt0;
asm
end;

end.