Вопрос Как можно провести проверку подключен ли компьютер к интернету

Хамик

Старожил
Как можно провести проверку подключен ли компьютер к интернету?
 

sergey3695

Ветеран
Модератор
В гугле вопрос и дописать Delphi. И смотри. Ну так нашел, не знаю как. У меня работает.
IsNetworkAlive
Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
function IsNetworkAlive(var aFlags: DWord): Bool; external 'IsNetworkAlive@Sensapi.dll stdcall';

procedure InitializeWizard();
var
  dwFlags: DWord;
begin
if IsNetworkAlive(dwFlags) then
  MsgBox('Ok', mbConfirmation, MB_OK)
else
  MsgBox('No', mbConfirmation, MB_OK);
end;
Написано мол с LAN медленно может определять.
 

South

Знаток
Проверенный
Snoopak96, это тоже через пень колоду работает. проходили
 

Snoopak96

Старожил
South,
да знаю я, уже почитал, у меня на динамике норм отработала, дельфинарии пинговать советуют, но это же как-то по сантехнически :D
 
Сверху