Zitat von
djmasi:
Kannst du deine mal noch mit posten?
http://www.bendlins.de/temp/wbem-1.0_winse.zip
( ps: befinden sich unter
WIn9x in %windir%\system\WBEM )
Zum Beitrag oben, IsNetworkAlive() liefert immer noch LAN zurück wenn das Kabel längst gezogen wurde...
Delphi-Quellcode:
const
NETWORK_ALIVE_LAN = $00000001;
NETWORK_ALIVE_WAN = $00000002;
NETWORK_ALIVE_AOL = $00000004;
function IsNetworkAlive(out Flags: DWORD): BOOL; stdcall;
external 'sensapi.dll' name 'IsNetworkAlive';
procedure TForm1.Button1Click(Sender: TObject);
var
Flags: DWORD;
Text: string;
begin
Text := 'IsNetworkAlive: ';
if not IsNetworkAlive(Flags) then
Text := Text + '<offline>'
else
begin
if (Flags and NETWORK_ALIVE_LAN) = NETWORK_ALIVE_LAN then
Text := Text + 'LAN, ';
if (Flags and NETWORK_ALIVE_WAN) = NETWORK_ALIVE_WAN then
Text := Text + 'WAN, ';
if (Flags and NETWORK_ALIVE_AOL) = NETWORK_ALIVE_AOL then
Text := Text + 'Looser, ';
Text := Text + '...';
end;
ShowMessage(Text);
end;