本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

				unit RegisterArchiver;
				
				interface
				
				procedure Register;
				
				implementation
				uses Extractor, Archiver, SFXGenerator;
				
				procedure Register;
				begin
				  Extractor.Register;
				  Archiver.Register;
				  SFXGenerator.Register;
				end;
				
				end.