telnet.dpr

来自「Delphi 网络通信协议代码,是多种网络协议的实现代码」· DPR 代码 · 共 38 行

{ ****************************************************** }
{ * Telnet:              version 1.01, Jan 11, 2001.   * }
{ *                                                    * }
{ * Copyright (C)1995-2001,OopsWare Corp,China. Oops!  * }
{ * E-mail: [e-mail]               * }
{ *   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.