unit1.~pas

来自「cvery_608119760.rar」· ~PAS 代码 · 共 46 行

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.