254b27740e
git-svn-id: https://svn.code.sf.net/p/kolmck/code@17 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
23 lines
493 B
ObjectPascal
23 lines
493 B
ObjectPascal
unit SysSfIni;
|
|
{X: this unit must be referenced in uses clause of dpr as earlier as possible,
|
|
if You want to use try-execpt/raise protected initialization and finalization
|
|
for your units. }
|
|
|
|
{$O+,H+,I-,S-}
|
|
|
|
interface
|
|
|
|
implementation
|
|
|
|
initialization
|
|
|
|
InitUnitsProc := InitUnitsHard;
|
|
FInitUnitsProc := FInitUnitsHard;
|
|
UnregisterModule := UnregisterModuleSafely;
|
|
UnsetExceptionHandlerProc := UnsetExceptionHandler;
|
|
SetExceptionHandler;
|
|
|
|
finalization
|
|
|
|
end.
|