system.pas

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

//系统内核单元
unit System;

interface

procedure _InitExe;
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;

implementation

procedure ExitProcess (uExitCode: LongWord); stdcall;
  external kernel32 name 'ExitProcess';

procedure _InitExe;
asm
end;

procedure _HandleFinally;
asm
end;

procedure _Halt0;
begin
  ExitProcess(0);
end;

end.