system.pas

delphi源代码分析源码

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;

var
  IsConsole : Boolean;
  HStdIn : Integer;
  HStdOut : integer;

const
  STD_INPUT_HANDLE         = Integer(-10);
  STD_OUTPUT_HANDLE        = Integer(-11);

implementation

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

function GetStdHandle(nStdHandle: Integer): Integer; stdcall;
  external kernel32 name 'GetStdHandle';

procedure InitConsole;
begin
  HStdIn := GetStdHandle(STD_INPUT_HANDLE);
  HStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
end;

procedure _InitExe;
begin
  InitConsole;
end;

procedure _HandleFinally;
asm
end;

procedure _halt0;
begin
  ExitProcess(0);
end;

end.