核心提示：uses WinInet; const MODEM = 1; LAN = 2; PROXY = 4; BUSY = 8;function GetConnectionKind(var strKind:...
uses WinInet; const MODEM = 1; LAN = 2; PROXY = 4; BUSY = 8; function GetConnectionKind(var strKind: string): Boolean; var flags: DWORD; begin strKind := ''; Result := InternetGetConnectedState(@flags, 0); if Result then begin if (flags and MODEM) = MODEM then strKind := 'Modem'; if (flags and LAN) = LAN then strKind := 'LAN'; if (flags and PROXY) = PROXY then strKind := 'Proxy'; if (flags and BUSY) = BUSY then strKind := 'Modem Busy'; end; end; //例子 procedure TForm1.Button1Click(Sender: TObject); var strKind: string; begin if GetConnectionKind(strKind) then ShowMessage(strKind); end;
