Hallo, mir geht es darum in einem Windows 2000 System für sämtliche Netwerkadapter die
IP UND den Namen der Verbindung anzeigen zu lassen. Eine Funktion um die
IP Adresse zeigen zu lassen habe ich hier im Forum schon gefunden und erfolgreich implemetiert. Jetzt gilt es noch zusätzlich zur
IP-adresse den Adapternamen oder auch Adaptertyp anzeigen zu lassen.
Der Code für das Anzeigen der
IP von MathiasSimmack hier im Forum
Delphi-Quellcode:
uses
WinSock;
function GetLocalIPs: string;
type
PPInAddr = ^PInAddr;
var
wsadata : TWSAData;
hostinfo : PHostEnt;
addr : PPInAddr;
begin
Result := '';
if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then
try
hostinfo := gethostbyname(nil);
if(hostinfo <> nil) then begin
addr := pointer(hostinfo^.h_addr_list);
while(addr^ <> nil) do begin
Result := Result + inet_ntoa(addr^^) + ^M^J;
inc(addr);
end;
end;
finally
WSACleanUp;
end;
end;
http://www.delphipraxis.net/internal...ect.php?t=2902
Edit: Am besten wäre natürlich eine Methode wo man den jeweiligen LAN-Adapternamen eingeben kann und dann die jeweilige
IP als Rückgabe bekommt.