unit DRotTlbMonMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btnRtMon: TButton;
    mmInfo: TMemo;
    procedure btnRtMonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  Tocsg.Network, Tocsg.Safe;

{$R *.dfm}

procedure TForm1.btnRtMonClick(Sender: TObject);
var
  RouteList: TRouteEntList;
  i: Integer;
begin
  mmInfo.Clear;

  Guard(RouteList, TRouteEntList.Create);
  GetRouteTables(RouteList);
  for i := 0 to RouteList.Count - 1 do
  begin
    mmInfo.Lines.Add(RouteList[i].sDestIp);

    if RouteList[i].sDestIp = '10.10.10.0' then
    begin
      if DeleteIpForwardEntry(@RouteList[i].Info) = 0 then
        ShowMessage('"10.10.10.0" »èÁ¦ ¼º°ø');
    end;
  end;
end;

end.