| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

-= Определение подключен ли комп к сети =- [D5, D6, D7, Win95/98, WinME, Win2k, WinXP]

NND ©   (2004-03-28 05:07:00) 

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 флага есть. А где остальные взять. Может знает кто???

---

Piter   (2004-03-28 13:36:00) [1]

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

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

---

Cobalt   (2004-03-28 11:39:00) [2]

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

---

Наверх