unit1.pas

cvery_608119760.rar

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TfrmMain = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edtStatus: TEdit;
    GroupBox2: TGroupBox;
    btnRun: TButton;
    btnExit: TButton;
    procedure btnRunClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

procedure TfrmMain.btnRunClick(Sender: TObject);
begin 
if GetSystemMetrics(SM_NETWORK) and $0001 = $0001 then
   edtStatus.text:='你的电脑已与网络连接'
else
   edtStatus.text:='你的电脑未与网络连接';
end;

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
  frmMain.Close;
end;

end.