topunit.pas

delphi开发语言下的源代码分析

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.