Delphi控件源码

开发平台：

Delphi

Client.dpr：源码内容

							program Client;
uses
  Forms,
  ChatingFrm in 'ChatingFrm.pas' {ChatingForm},
  Color in 'Color.pas',
  Global in 'Global.pas',
  HistoryFrm in 'HistoryFrm.pas' {HistoryForm},
  md5 in 'md5.pas',
  MsgFrm in 'MsgFrm.pas' {MsgForm},
  MyInputBoxFrm in 'MyInputBoxFrm.pas' {MyInputBoxForm},
  RealMessengerImpl in 'RealMessengerImpl.pas' {RealMessengerX: TActiveForm},
  RealMessengerUnit in 'RealMessengerUnit.pas',
  SelBackFrm in 'SelBackFrm.pas' {SelBackForm},
  SelColorFrm in 'SelColorFrm.pas' {SelColorForm},
  SelFaceFrm in 'SelFaceFrm.pas' {SelFaceForm},
  SelUserFrm in 'SelUserFrm.pas' {SelUserForm},
  WNDES in 'WNDES.pas',
  LoginFrm in 'LoginFrm.pas' {LoginForm},
  SystemSetFrm in 'SystemSetFrm.pas' {SystemSetForm},
  CopyScreenFrm in 'CopyScreenFrm.pas' {CopyScreenForm},
  AboutFrm in 'AboutFrm.pas' {AboutForm},
  VideoFrm in 'VideoFrm.pas' {VideoForm},
  VideoConsts in 'VideoConsts.pas',
  Pop3ServerFrm in 'Pop3ServerFrm.pas' {Pop3ServerForm},
  AVSetFrm in 'AVSetFrm.pas' {AVSetForm},
  hxUdp in 'hxUdp.pas',
  MySocket in 'MySocket.pas',
  ChangeNameAndPasswordFrm in 'ChangeNameAndPasswordFrm.pas' {ChangeNameAndPasswordForm};
{$R *.res}
begin
  Application.Initialize;
  Application.Title := '易通科技';
  Application.CreateForm(TRealMessengerX, RealMessengerX);
  Application.Run;
end.

						