home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue46 / packages / Package1 / Package1Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-04-27  |  493 b   |  23 lines
  1. unit Package1Unit1;
  2.  
  3. interface
  4.  
  5. procedure BLRegister;
  6.  
  7. implementation
  8.  
  9. uses
  10.   Forms, Windows;
  11.  
  12. procedure BLRegister;
  13. begin
  14.   Application.MessageBox('BLTestPackage''s Package1Unit1.BLRegister',
  15.     'Information', MB_OK or MB_ICONINFORMATION)
  16. end;
  17.  
  18. initialization
  19.   Application.MessageBox('BLTestPackage starting', 'Information', MB_OK or MB_ICONINFORMATION)
  20. finalization
  21.   Application.MessageBox('BLTestPackage stopping', 'Information', MB_OK or MB_ICONINFORMATION);
  22. end.
  23.