Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c