做了个软件更新程序，不过在没联网的时候会报错解决办法

做了个软件更新程序，不过在没联网的时候会报错
程序一运行会自动链接数据库，可是在没网的情况下，程序就会报错，如何解决这种情况？如何判断能在联网的情况下，软件会正常链接数据库，在没联网的情况下软件也能正常运行而不链接数据库
------解决方案--------------------
function InternetConnected:Boolean;StdCall;
const
    INTERNET_CONNECTION_MODEM=1;
    INTERNET_CONNECTION_LAN=2;
    INTERNET_CONNECTION_PROXY=4;
    INTERNET_CONNECTION_MODEM_BUSY=8;
var
    dwConnectionTypes:word;
begin
    dwConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
    Result:=InternetGetConnectedState(@dwConnectionTypes,0);
end;
判断下有没连网