jwaiphlpapi.pas

比较全面的win32api开发包

{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetTcpEntry: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetInterfaceInfo: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetUniDirectionalAdapterInfo: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetBestInterface: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetBestInterfaceEx: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetBestRoute: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _NotifyAddrChange: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _NotifyRouteChange: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetAdapterIndex: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _AddIPAddress: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DeleteIPAddress: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetNetworkParams: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetAdaptersInfo: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetAdaptersAddresses: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetPerAdapterInfo: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _IpReleaseAddress: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _IpRenewAddress: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SendARP: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetRTTAndHopCount: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetFriendlyIfIndex: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _EnableRouter: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _UnenableRouter: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DisableMediaSense: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RestoreMediaSense: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetIpErrorString: Pointer;

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

end.