psiregister.pas

来自「一个delphi的p2p控件的源代码」· PAS 代码 · 共 44 行

unit PsiRegister;

//******************************************************************************
// The original software is under
// Copyright (c) 1993 - 2000, Chad Z. Hower (Kudzu)
//   and the Indy Pit Crew - http://www.nevrona.com/Indy/
//
// Amended : November 2000, by Michael M. Michalak MACS for use with
// MorphTek.com Inc Peer to Peer Open Source Components - http://www.morphtek.com
//
//******************************************************************************

interface

{$R PsiRegister.dcr}

// Procs
procedure Register;

implementation

uses
  Classes,
  PsiAntiFreeze,
  PsiTCPClient, PsiTCPServer, PsiThreadMgrDefault;

procedure Register;
begin
  RegisterComponents('P2P Clients', [   {do not localize}
   TPsiTCPClient
   ]);

  RegisterComponents('P2P Servers', [  {do not localize}
   TPsiTCPServer
   ]);

  RegisterComponents('P2P Misc', [  {do not localize}
   TPsiAntiFreeze,
   TPsiThreadMgrDefault
   ]);
end;

end.