Tipp:
Gibt es in XE schon diese Units?
Delphi-Quellcode:
uses
Winapi.IpTypes,
Winapi.IpHlpApi;
(bzw. IpTypes und IpHlpApi)
Und pssst, Dein FreeMem gibt nichts frei, da dort der Pointer nil ist (weil dieser ja seit dem GetMem verändert "Next" wurde).
(siehe mein Edit ... hatte das auch erst vergessen
, aber keine Sorge ... der Code vom CodeOrakel, vergißt dagegen sogar komplett der Freigeben)
Da AdapterName ein
ANSI-String ist, besser nach AnsiString und nicht String "casten" (
String(pAdapterList.AdapterName)
) ... dann gibt's eventuell auch weniger Compilerhinweise, bezüglich
ANSI<>
Unicode.
Und IpAddressList = evetuell auch mehrere IPs und nicht nur Eine.