비스타 아래 버전에서는 작동하지 않습니다.

비스타 아래 버전에서 게이트웨이 주소를 구하기 위해 ipconfig 결과를 파싱하는 방법을 생각하고 있는데 더 좋은 방법 있을까요?

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

procedure TForm1.FormCreate(Sender: TObject);
var
  _IPAdapterAddresses: PIP_ADAPTER_ADDRESSES;
  _SizePointer: Integer;
begin
  _SizePointer := 15000; // recommended size by microsoft

  _IPAdapterAddresses := AllocMem(_SizePointer);

  GetAdaptersAddresses(AF_INET, 128, nil, _IPAdapterAddresses, @_sizepointer); // constant GAA_FLAG_INCLUDE_GATEWAYS is not supported by api in delphi and for vista and later

  Caption := string(inet_ntoa(_IPAdapterAddresses^.FirstGatewayAddress.Address.lpSockaddr.sin_addr));

  FreeMem(_IPAdapterAddresses);
end;