*****************************************************************
* Neveprise Inc. Delphi FAQ					*
*****************************************************************
* Section: Net / Internet	Topic:   Check if LAN present	*
* Created: July 27th, 1999	Revised: July 27th, 1999 	*
* Updates: www.neveprise.de	Info:	 support@neveprise.de	*
*****************************************************************

Q: How can I check if the machine is connected to a local area
	network (LAN)?

A: Very curious: this can be queried using the API call GetSystem-
	Metrics():


function  IsNetConnectedH: boolean;
begin
if GetSystemMetrics(SM_Network) and $01=$01 then Result:=true else Result:=false;
end;


	Blazko