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.
|