topunit.pas

来自「Sharemem replacement for Delphi. Fast, 」· PAS 代码 · 共 17 行

unit TopUnit;

interface

implementation

procedure SomeFunction(Reason: Integer);
begin
  // do something;
end;

initialization
  // if you want, you can safe assign to SysInit.DllProc
  DllProc := @SomeFunction;

end.