So jetzt endlich aus dieser absolut langweiligen Sitzung raus...
Also die ganze Geschichte mit Netzwerkkabel raus rein läuft eigentlich
über die MediaSense
API. Den Link zu dem C Code hat dir ja schon der
Moritz geschickt. Man sollte sich im klaren sein das MediaSense erst
seit Windows 2000 existiert. (NDIS 5) Nach langem suchen und studieren
der
API hab ich mich dann doch beschlossen das alles komplett anders zu
machen
. Ihr dürft raten
die supertolle wunderschöne fehlerlose
Windows Registry hat nen Schlüssel in der sich beim einstecken und austecken
ein Wert ändert
Ich poste mal den Code den ich damals zusammengefriemelt hab. Also ohne Garantie
as funktionstüchtigkeit etc... Rückmeldungen wären schön da ich knapp 2 Monate
mit der SenseAPI mich rumgeschlagen hab bevor ich dann doch zu dieser unüblichen
Lösung kam...
Delphi-Quellcode:
function NetworkConnect : Boolean;
var
reg : TRegistry;
i : Integer;
NetworkCards : String;
begin
result := false;
reg := TRegistry.Create(KEY_READ);
reg.RootKey := HKEY_LOCAL_MACHINE;
for i := 0 to 15 do //Mehr als 15 Netzwerkkarten sollte kein normaler Rechner haben...
if reg.KeyExists('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\' +inttostr(i)) = true then
begin
reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\' +inttostr(i),false);
NetworkCards := reg.ReadString('ServiceName');
break;
end;
if NetworkCards <> '' then
begin
reg.OpenKey('\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\'+NetworkCards,false);
if reg.ReadString('DHCPDomain') <> '' then result := true else result := false;
end;
reg.Free;
end;
So also macht euch mal her über den Code
MfG
Kasoft
P.S.: Ich danke unsererm VB Programmierer aus unserer Abteilung für seine Supergeniale
unterstützung bei dem Problem
Danke Thomas!