IsActivated Example for Delphi

var
   strOut: String;
begin
   //test the local computer's connection
   strOut:= 'Activated: ' + BoolToStr(LEADDICOMNet1.IsActivated (LEADDICOMNet1.hNet));
   strOut:= strOut + Chr(13);
   strOut:= strOut + 'Connected: ' + BoolToStr(LEADDICOMNet1.IsConnected (LEADDICOMNet1.hNet));
   strOut:= strOut + Chr(13);
   strOut:= strOut + 'Associated: ' + BoolToStr(LEADDICOMNet1.IsAssociated (LEADDICOMNet1.hNet));
   ShowMessage(strOut);
end;