DSL-Verbindungsmonitor!

[Spasskeks]

Also wegen der IPs hab ich hier ne Function für Dich, die dir alle IPs, die der PC "besitzt" anzeigt... Die einzelnen IPs werden mit einem ";" getrennt. Bei "uses" noch "winsock" eifügen, denn sollte des laufen....

Delphi-Quellcode:

Function GetLocalIPs: String;
type PPInAddr= ^PInAddr;
var
wsaData: TWSAData;
HostInfo: PHostEnt;
HostName: Array[0..255] of Char;
Addr: PPInAddr;
begin
Result:='';
if WSAStartup($0102, wsaData)<>0 then exit;
try
if gethostname(HostName, SizeOf(HostName)) <> 0 then exit;
HostInfo:= gethostbyname(HostName);
if HostInfo=nil then Exit;
Addr:=Pointer(HostInfo^.h_addr_list);
if (Addr=nil) or (Addr^=nil) then exit;
Result:=StrPas(inet_ntoa(Addr^^));
inc(Addr);
while Addr^<>nil do begin
Result:=Result+';'+StrPas(inet_ntoa(Addr^^));
inc(Addr);
end;
finally
WSACleanup;
end;
end;