27 lines
422 B
ObjectPascal
27 lines
422 B
ObjectPascal
|
unit UnSwReg;
|
||
|
|
|
||
|
|
interface
|
||
|
|
implementation
|
||
|
|
uses
|
||
|
|
SysUtils,
|
||
|
|
|
||
|
|
CmpSwClient,
|
||
|
|
UnSwClient;
|
||
|
|
|
||
|
|
var
|
||
|
|
GComponentSwitcher: TComponentSwitcherHook;
|
||
|
|
GUnitSwitcher: TUnitSwitcherHook;
|
||
|
|
|
||
|
|
|
||
|
|
initialization
|
||
|
|
GComponentSwitcher := TComponentSwitcherHook.Create();
|
||
|
|
GUnitSwitcher := TUnitSwitcherHook.Create();
|
||
|
|
|
||
|
|
|
||
|
|
finalization
|
||
|
|
FreeAndNil(GUnitSwitcher);
|
||
|
|
FreeAndNil(GComponentSwitcher);
|
||
|
|
|
||
|
|
end.
|
||
|
|
|