Получить тип интернет соединения

Советы » Интернет » Получить тип интернет соединения

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com