home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Rtl / Corba / CORBINIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  795 b   |  37 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {                                                       }
  6. {       Copyright (C) 1999 Inprise Corporation          }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit CorbInit;
  11.  
  12. {$DENYPACKAGEUNIT}
  13.  
  14. interface
  15.  
  16. implementation
  17.  
  18. uses SysUtils, CorbaObj;
  19.  
  20. var
  21.   SaveInitProc: Pointer = nil;
  22.  
  23. procedure InitCorba;
  24. begin
  25.   CorbaInitialize;
  26.   if SaveInitProc <> nil then TProcedure(SaveInitProc);
  27. end;
  28.  
  29. initialization
  30.   if not IsLibrary then
  31.   begin
  32.     SaveInitProc := InitProc;
  33.     InitProc := @InitCorba;
  34.   end;
  35.  
  36. end.
  37.