[Crack502]

Подскажите как можно программно проверить существует ли соединение.
Если нет, то выдать сообщение...

[Rat]

пингануть ченить

[Vayrus]

Попробуй:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); begin   if  GetSystemMetrics(SM_NETWORK) and $01 = $01 then     ShowMessage('Computer is attached to a network!')     else     ShowMessage('Computer is not attached to a network!'); end;    //Для кучи, определение RDP<i><font face="monospace"> </font>//returns true if running under Windows Terminal Services</i> <b>function</b> TRemoteSession.IsRemoteSession: <b>boolean</b>; <i>(* const   sm_RemoteSession = $1000; *)</i> <b>begin</b>   result := GetSystemMetrics(sm_RemoteSession) <> 0; <b>end</b>;

[Crack502]

Спасибо. Попробую.

[Crack502]

Сообщение от Vayrus

Попробуй:

Код:

Всё время пишет, что соединение существует, даже когда его нет.

[Vayrus]

Вот еще:

http://www.citforum.ru/nets/articles/ping/
http://www.eomy.net/forum/ping-sreds...hi-vt2290.html