Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.188.174.246] |
|
Сообщ.
#1
,
|
|
|
как узнать подключен или нет компютер в данный момент к сети Internet(На Delphi 5.0 и выше
|
Сообщ.
#2
,
|
|
|
implementation
{$R *.DFM} function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL'; procedure TForm1.Timer1Timer(Sender: TObject); begin if InetIsOffline(0) then ShowMessage('This computer is not connected to Internet!') else ConnectToServer(); end; |