Função para verificar se você está conectado a internet.
1
2
3
4
5
6
7
8
9
10
11
12
13
| // É necessário estar declarado WinInet e Windows na seção uses.
// Para versões recentes do Delphi declare Winapi.WinInet e Winapi.Windows.
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end; |
// É necessário estar declarado WinInet e Windows na seção uses.
// Para versões recentes do Delphi declare Winapi.WinInet e Winapi.Windows.
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
Dúvidas ou sugestões deixe nos comentários do post.
Post Views: 7.143
-
InfusTec
-
- 0 comentários
- 10 de março de 2015
