|
Вы можете использовать TCP компонент для определения Local IP адреса. Если Local IP "0.0.0.0", значит компьютер не подключен к интернету.
procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = '0.0.0.0' then
ShowMessage('Your not connected!');
end;
|
|
