Namen der Netzwerk-Verbindungen auslesen

[himitsu]

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.