Delphi dicas

Verifique a conexão de rede

Para saber se um computador está em rede é bem fácil!

Usa-se a função GetSystemMetrics,  passando-se o parâmetro SM_NETWORK. Se o último bit estiver ligado, uma rede está presente. Simples!

Pra isso usa-se o seguinte código:



if GetSystemMetrics(SM_NETWORK) and $01 = $01 then

ShowMessage('Rede encontrada');