Форум: "Сети";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Вниз-= Определение подключен ли комп к сети =- Найти похожие ветки
← →
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
← →
Piter © (2004-03-28 13:36) [2]NND (28.03.04 05:07)
Определение подключен ли комп к сети
на этом сайте есть статья по этому поводу
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c