system.pas

来自「delphi开发语言下的源代码分析」· PAS 代码 · 共 38 行

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.