Telnet客户端

开发平台：

Delphi

Telnet.dpr：源码内容

							{ ****************************************************** }
{ * Telnet:              version 1.01, Jan 11, 2001.   * }
{ *                                                    * }
{ * Copyright (C)1995-2001,OopsWare Corp,China. Oops!  * }
{ * E-mail: oops@jn-public.sd.cninfo.net               * }
{ *   Web : oopsware.qzone.com                         * }
{ *                                                    * }
{ * Jan 12,2001     Ver1.01                            * }
{ *    Fixed Chinese input bugs                        * }
{ *    TOopsConsole been abandoned and substituted     * }
{ *      with TOopsTelnet.                             * }
{ *                                                    * }
{ * Jan 8,2001      Ver1.0b                            * }
{ *    Can capture console text to clipboard.          * }
{ *                                                    * }
{ * Jan 1,2001      Ver1.0a                            * }
{ *    simple telnet can connect to SCO Unix           * }
{ ****************************************************** }
program Telnet;
uses
  Forms,
  Main in 'Main.pas' {TelnetForm},
  About in 'About.pas' {frmAbout},
  OpenHosts in 'OpenHosts.pas' {frmOpen};
{$R *.RES}
begin
  Application.Initialize;
  Application.Title := '简体中文 Telnet';
  Application.CreateForm(TTelnetForm, TelnetForm);
  TelnetForm.Init;
  if ParamCount=1 then TelnetForm.OpenHost(ParamStr(1));
  Application.Run;
end.

						