jwaiphlpapi.pas

比较全面的win32api开发包

  end;
end;
{$ELSE}
function GetIfTable; external iphlpapilib name 'GetIfTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIpAddrTable: Pointer;

function GetIpAddrTable;
begin
  GetProcedureAddress(_GetIpAddrTable, iphlpapilib, 'GetIpAddrTable');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIpAddrTable]
  end;
end;
{$ELSE}
function GetIpAddrTable; external iphlpapilib name 'GetIpAddrTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIpNetTable: Pointer;

function GetIpNetTable;
begin
  GetProcedureAddress(_GetIpNetTable, iphlpapilib, 'GetIpNetTable');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIpNetTable]
  end;
end;
{$ELSE}
function GetIpNetTable; external iphlpapilib name 'GetIpNetTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIpForwardTable: Pointer;

function GetIpForwardTable;
begin
  GetProcedureAddress(_GetIpForwardTable, iphlpapilib, 'GetIpForwardTable');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIpForwardTable]
  end;
end;
{$ELSE}
function GetIpForwardTable; external iphlpapilib name 'GetIpForwardTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetTcpTable: Pointer;

function GetTcpTable;
begin
  GetProcedureAddress(_GetTcpTable, iphlpapilib, 'GetTcpTable');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetTcpTable]
  end;
end;
{$ELSE}
function GetTcpTable; external iphlpapilib name 'GetTcpTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetUdpTable: Pointer;

function GetUdpTable;
begin
  GetProcedureAddress(_GetUdpTable, iphlpapilib, 'GetUdpTable');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetUdpTable]
  end;
end;
{$ELSE}
function GetUdpTable; external iphlpapilib name 'GetUdpTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIpStatistics: Pointer;

function GetIpStatistics;
begin
  GetProcedureAddress(_GetIpStatistics, iphlpapilib, 'GetIpStatistics');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIpStatistics]
  end;
end;
{$ELSE}
function GetIpStatistics; external iphlpapilib name 'GetIpStatistics';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIpStatisticsEx: Pointer;

function GetIpStatisticsEx;
begin
  GetProcedureAddress(_GetIpStatisticsEx, iphlpapilib, 'GetIpStatisticsEx');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIpStatisticsEx]
  end;
end;
{$ELSE}
function GetIpStatisticsEx; external iphlpapilib name 'GetIpStatisticsEx';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIcmpStatistics: Pointer;

function GetIcmpStatistics;
begin
  GetProcedureAddress(_GetIcmpStatistics, iphlpapilib, 'GetIcmpStatistics');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIcmpStatistics]
  end;
end;
{$ELSE}
function GetIcmpStatistics; external iphlpapilib name 'GetIcmpStatistics';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetIcmpStatisticsEx: Pointer;

function GetIcmpStatisticsEx;
begin
  GetProcedureAddress(_GetIcmpStatisticsEx, iphlpapilib, 'GetIcmpStatisticsEx');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetIcmpStatisticsEx]
  end;
end;
{$ELSE}
function GetIcmpStatisticsEx; external iphlpapilib name 'GetIcmpStatisticsEx';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetTcpStatistics: Pointer;

function GetTcpStatistics;
begin
  GetProcedureAddress(_GetTcpStatistics, iphlpapilib, 'GetTcpStatistics');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetTcpStatistics]
  end;
end;
{$ELSE}
function GetTcpStatistics; external iphlpapilib name 'GetTcpStatistics';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetTcpStatisticsEx: Pointer;

function GetTcpStatisticsEx;
begin
  GetProcedureAddress(_GetTcpStatisticsEx, iphlpapilib, 'GetTcpStatisticsEx');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetTcpStatisticsEx]
  end;
end;
{$ELSE}
function GetTcpStatisticsEx; external iphlpapilib name 'GetTcpStatisticsEx';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetUdpStatistics: Pointer;

function GetUdpStatistics;
begin
  GetProcedureAddress(_GetUdpStatistics, iphlpapilib, 'GetUdpStatistics');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetUdpStatistics]
  end;
end;
{$ELSE}
function GetUdpStatistics; external iphlpapilib name 'GetUdpStatistics';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetUdpStatisticsEx: Pointer;

function GetUdpStatisticsEx;
begin
  GetProcedureAddress(_GetUdpStatisticsEx, iphlpapilib, 'GetUdpStatisticsEx');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetUdpStatisticsEx]
  end;
end;
{$ELSE}
function GetUdpStatisticsEx; external iphlpapilib name 'GetUdpStatisticsEx';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetIfEntry: Pointer;

function SetIfEntry;
begin
  GetProcedureAddress(_SetIfEntry, iphlpapilib, 'SetIfEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetIfEntry]
  end;
end;
{$ELSE}
function SetIfEntry; external iphlpapilib name 'SetIfEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _CreateIpForwardEntry: Pointer;

function CreateIpForwardEntry;
begin
  GetProcedureAddress(_CreateIpForwardEntry, iphlpapilib, 'CreateIpForwardEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CreateIpForwardEntry]
  end;
end;
{$ELSE}
function CreateIpForwardEntry; external iphlpapilib name 'CreateIpForwardEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetIpForwardEntry: Pointer;

function SetIpForwardEntry;
begin
  GetProcedureAddress(_SetIpForwardEntry, iphlpapilib, 'SetIpForwardEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetIpForwardEntry]
  end;
end;
{$ELSE}
function SetIpForwardEntry; external iphlpapilib name 'SetIpForwardEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _DeleteIpForwardEntry: Pointer;

function DeleteIpForwardEntry;
begin
  GetProcedureAddress(_DeleteIpForwardEntry, iphlpapilib, 'DeleteIpForwardEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DeleteIpForwardEntry]
  end;
end;
{$ELSE}
function DeleteIpForwardEntry; external iphlpapilib name 'DeleteIpForwardEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetIpStatistics: Pointer;

function SetIpStatistics;
begin
  GetProcedureAddress(_SetIpStatistics, iphlpapilib, 'SetIpStatistics');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetIpStatistics]
  end;
end;
{$ELSE}
function SetIpStatistics; external iphlpapilib name 'SetIpStatistics';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetIpTTL: Pointer;

function SetIpTTL;
begin
  GetProcedureAddress(_SetIpTTL, iphlpapilib, 'SetIpTTL');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetIpTTL]
  end;
end;
{$ELSE}
function SetIpTTL; external iphlpapilib name 'SetIpTTL';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _CreateIpNetEntry: Pointer;

function CreateIpNetEntry;
begin
  GetProcedureAddress(_CreateIpNetEntry, iphlpapilib, 'CreateIpNetEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CreateIpNetEntry]
  end;
end;
{$ELSE}
function CreateIpNetEntry; external iphlpapilib name 'CreateIpNetEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetIpNetEntry: Pointer;

function SetIpNetEntry;
begin
  GetProcedureAddress(_SetIpNetEntry, iphlpapilib, 'SetIpNetEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetIpNetEntry]
  end;
end;
{$ELSE}
function SetIpNetEntry; external iphlpapilib name 'SetIpNetEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _DeleteIpNetEntry: Pointer;

function DeleteIpNetEntry;
begin
  GetProcedureAddress(_DeleteIpNetEntry, iphlpapilib, 'DeleteIpNetEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DeleteIpNetEntry]
  end;
end;
{$ELSE}
function DeleteIpNetEntry; external iphlpapilib name 'DeleteIpNetEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _FlushIpNetTable: Pointer;

function FlushIpNetTable;
begin
  GetProcedureAddress(_FlushIpNetTable, iphlpapilib, 'FlushIpNetTable');
  asm
    mov esp, ebp
    pop ebp
    jmp [_FlushIpNetTable]
  end;
end;
{$ELSE}
function FlushIpNetTable; external iphlpapilib name 'FlushIpNetTable';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _CreateProxyArpEntry: Pointer;

function CreateProxyArpEntry;
begin
  GetProcedureAddress(_CreateProxyArpEntry, iphlpapilib, 'CreateProxyArpEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CreateProxyArpEntry]
  end;
end;
{$ELSE}
function CreateProxyArpEntry; external iphlpapilib name 'CreateProxyArpEntry';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _DeleteProxyArpEntry: Pointer;

function DeleteProxyArpEntry;
begin
  GetProcedureAddress(_DeleteProxyArpEntry, iphlpapilib, 'DeleteProxyArpEntry');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DeleteProxyArpEntry]
  end;
end;
{$ELSE}
function DeleteProxyArpEntry; external iphlpapilib name 'DeleteProxyArpEntry';