-= Определение подключен ли комп к сети =-

← →
NND (2004-03-28 05:07) [0]

const MODEM = 1;
LAN = 2;
PROXY = 4;
BUSY = 8;

var IsINet: Boolean;
CType: String;

Procedure GetConnKind(var strKind: string;var IsINET: Boolean);stdcall;
var
flags: DWORD;
begin
strKind := "";
IsINET := InternetGetConnectedState(@flags, 0);
if IsINET then
begin
if (flags and MODEM) = MODEM then strKind := "Модемное соеденение";
if (flags and LAN) = LAN then strKind := "LAN соеденение";
if (flags and PROXY) = PROXY then strKind := "Proxy соеденение";
if (flags and BUSY) = BUSY then strKind := "Модем занят!";
end;
end;

Function IsComputerOnLine : Boolean;stdcall;
var ConnectionKind : String;
begin
GetConnKind(CType,Result);
end;

Function GetConnectionType : String;stdcall;
begin
GetConnKind(Result,IsINet);
end;

Фишка в чем, у меня 4 флага есть. А где остальные взять. Может знает кто???

← →
Cobalt © (2004-03-28 11:39) [1]

http://www.google.com/search?q=InternetGetConnectedState&sourceid=opera&num=0&ie=utf-8&oe=utf-8

NND (28.03.04 05:07)
Определение подключен ли комп к сети

на этом сайте есть статья по этому поводу

-= Определение подключен ли комп к сети =- Найти похожие ветки