Smallest System.pas and SysInit.pas - Windows XP, Vista & 7

posted 4 Aug 2011 12:45 by Delphi Basics
Inspired by Small Applications in Delphi - Tutorial by n0v4, these "Mini-Delphi" units (identification by PEiD) have been updated to work with all Windows NT operating systems. 

System.pas
unit System; 

interface

procedure _Halt0;
procedure _HandleFinally; 

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

var
  ExitCode: Integer = 0; 
  
procedure ExitProcess(ExitCode: Integer); stdcall; external 'kernel32.dll' name 'ExitProcess';

implementation

procedure _Halt0;
begin
  ExitProcess(ExitCode);
end;

procedure _HandleFinally;
asm
end;

end.

SysInit.pas
unit SysInit;

interface

procedure _InitExe(InitTable: Pointer);

var
  TlsIndex: Integer = -1;   
  TlsLast: Byte;    
const
  PtrToNil: Pointer = nil;

implementation

procedure _InitExe(InitTable: Pointer);
begin
end;

end.