mainform.pas

AdpSpy NDIS 网卡 网络接口,、在 NT 系统中插、拔网线时

unit MainForm;

interface

uses
  Classes, Controls, Forms, ExtCtrls, ComCtrls, AdpUtils;

type
  TfrmMain = class(TForm)
    tmRefresh: TTimer;
    lvAdapters: TListView;
    procedure tmRefreshTimer(Sender: TObject);
  private
    FAdapterStatuses: TAdapterStatuses;
    FAdapterNum: Integer;
    procedure RefreshAdapterStatuses;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.RefreshAdapterStatuses;
var
  num, i: Integer;
begin
  ScanAdapters(FAdapterStatuses);
  num := Length(FAdapterStatuses);
  if num = FAdapterNum then
  begin
    for i := 0 to num - 1 do
      lvAdapters.Items[i].SubItems[1] := GetGetAdapterStatusString(FAdapterStatuses[i].dwOperStatus);
  end
  else begin
    lvAdapters.Items.BeginUpdate;
    lvAdapters.Items.Clear;
    for i := 0 to num - 1 do
    begin
      lvAdapters.Items.Add;
      lvAdapters.Items[i].Caption := GetAdapterTypeString(FAdapterStatuses[i].dwType);
      lvAdapters.Items[i].SubItems.Add(FAdapterStatuses[i].bDescr);
      lvAdapters.Items[i].SubItems.Add(GetGetAdapterStatusString(FAdapterStatuses[i].dwOperStatus));
    end;
    lvAdapters.Items.EndUpdate;
    FAdapterNum := num;
  end;
end;

procedure TfrmMain.tmRefreshTimer(Sender: TObject);
begin
  RefreshAdapterStatuses;
end;

end.