Rede - saber se o micro esta em rede

Top  Previous  Next

function NetIsPresent: Boolean;

begin

  Result := GetSystemMetrics(SM_NETWORK) <> 0;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  if NetIsPresent then Caption := 'NET' else Caption := 'NOT NET';

end;

 

////////////// OTHER

 

// Saber se o Micro esta em Rede

 

  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then ShowMessage('Rede encontrada');