Hi Leute,
ich benutze folgenden Code, um herauszufinden, ob ich online bin (ausm EDH):
Delphi-Quellcode:
function TfrmMain.IsOnline: Boolean;
var
dlvFlag : DWord;
begin
Result:=False;
dlvFlag := Internet_Connection_Modem + Internet_Connection_Lan + Internet_Connection_Proxy;
If InternetGetConnectedState ( @dlvFlag, 0 ) = True Then
Result:=dlvFlag = 81;
end;
Bei mir (direkt über IDSN-Modem) funktioniert auch einwandfrei. Nur mein Kumpel geht über LAN online und da klappt das nich. Ich hab auch schon probiert die
+ durch
or zu ersetzen, aber es hat nich geklappt...
Jemand ne Idee, woran das liegen könnte oder wie man anders rausbekommen kann, ob man online ist?
mfg, mh166