Subversion Repositories userdetect2

Rev

Rev 70 | Rev 73 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70 Rev 71
Line 28... Line 28...
28 
  addrStr: IP_ADDR_STRING;
 28 
  addrStr: IP_ADDR_STRING;
29 
  BufLen: Cardinal;
 29 
  BufLen: Cardinal;
30 
begin
 30 
begin
31 
  BufLen := SizeOf(IP_ADAPTER_INFO);
 31 
  BufLen := SizeOf(IP_ADAPTER_INFO);
32 
  Result := GetAdaptersInfo(nil, @BufLen);
 32 
  Result := GetAdaptersInfo(nil, @BufLen);
33 
  if Result <> ERROR_SUCCESS then Exit;
 33 
  if Result <> ERROR_BUFFER_OVERFLOW then Exit;
34 
  pAdapterInfo := AllocMem(BufLen);
 34 
  pAdapterInfo := AllocMem(BufLen);
35 
  try
 35 
  try
36 
    Result := GetAdaptersInfo(pAdapterInfo, @BufLen);
 36 
    Result := GetAdaptersInfo(pAdapterInfo, @BufLen);
37 
    if Result <> ERROR_SUCCESS then Exit;
 37 
    if Result <> ERROR_SUCCESS then Exit;
38 
    while pAdapterInfo <> nil do
 38 
    while pAdapterInfo <> nil do
Line 59... Line 59...
59 
  addrStr: IP_ADDR_STRING;
 59 
  addrStr: IP_ADDR_STRING;
60 
  BufLen: Cardinal;
 60 
  BufLen: Cardinal;
61 
begin
 61 
begin
62 
  BufLen := SizeOf(IP_ADAPTER_INFO);
 62 
  BufLen := SizeOf(IP_ADAPTER_INFO);
63 
  Result := GetAdaptersInfo(nil, @BufLen);
 63 
  Result := GetAdaptersInfo(nil, @BufLen);
64 
  if Result <> ERROR_SUCCESS then Exit;
 64 
  if Result <> ERROR_BUFFER_OVERFLOW then Exit;
65 
  pAdapterInfo := AllocMem(BufLen);
 65 
  pAdapterInfo := AllocMem(BufLen);
66 
  try
 66 
  try
67 
    Result := GetAdaptersInfo(pAdapterInfo, @BufLen);
 67 
    Result := GetAdaptersInfo(pAdapterInfo, @BufLen);
68 
    if Result <> ERROR_SUCCESS then Exit;
 68 
    if Result <> ERROR_SUCCESS then Exit;
69 
    while pAdapterInfo <> nil do
 69 
    while pAdapterInfo <> nil do
Line 90... Line 90...
90 
  addrStr: IP_ADDR_STRING;
 90 
  addrStr: IP_ADDR_STRING;
91 
  BufLen: Cardinal;
 91 
  BufLen: Cardinal;
92 
begin
 92 
begin
93 
  BufLen := SizeOf(IP_ADAPTER_INFO);
 93 
  BufLen := SizeOf(IP_ADAPTER_INFO);
94 
  Result := GetAdaptersInfo(nil, @BufLen);
 94 
  Result := GetAdaptersInfo(nil, @BufLen);
95 
  if Result <> ERROR_SUCCESS then Exit;
 95 
  if Result <> ERROR_BUFFER_OVERFLOW then Exit;
96 
  pAdapterInfo := AllocMem(BufLen);
 96 
  pAdapterInfo := AllocMem(BufLen);
97 
  try
 97 
  try
98 
    Result := GetAdaptersInfo(pAdapterInfo, @BufLen);
 98 
    Result := GetAdaptersInfo(pAdapterInfo, @BufLen);
99 
    if Result <> ERROR_SUCCESS then Exit;
 99 
    if Result <> ERROR_SUCCESS then Exit;
100 
    while pAdapterInfo <> nil do
 100 
    while pAdapterInfo <> nil do