nettest.pas
上传用户:sunrenlu
上传日期:2007-01-08
资源大小:199k
文件大小:0k
源码类别:

Internet/网络编程

开发平台:

Delphi

  1. unit nettest;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  5. type
  6.   TForm2 = class(TForm)
  7.     procedure FormCreate(Sender: TObject);
  8.   private
  9.     { Private declarations }
  10.   public
  11.     { Public declarations }
  12.   end;
  13. var
  14.   Form2: TForm2;
  15. implementation
  16. {$R *.DFM}
  17. procedure TForm2.FormCreate(Sender: TObject);
  18. begin
  19. showmessage('尚未连接到网络,无法运行程序!');
  20. halt;
  21. end;
  22. end.