[решено] Проверка соединения с интернетом и переход по ссылкам

Проверка соединения с интернетом
В константы пишем

Код:

const  

 INTERNET_CONNECTION_MODEM      = 1;  

 INTERNET_CONNECTION_LAN        = 2;  

 INTERNET_CONNECTION_PROXY      = 4;  

 INTERNET_CONNECTION_MODEM_BUSY = 8;

пихаем это куда повыше

Код:

function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';

а вот эту функцию под предыдущей, ну это уж вы как хотите

Код:

function IsInternetConnected: Boolean;

var

 dwConnectionTypes: DWORD;

begin

 dwConnectionTypes := INTERNET_CONNECTION_MODEM or

                      INTERNET_CONNECTION_LAN or

                      INTERNET_CONNECTION_PROXY;

 Result := InternetGetConnectedState(@dwConnectionTypes, 0);

end;

Функция возвращает значиние True, если соединение есть, или значение False, если ползователь не в интернете. А вот пример обращения к этой функции.

Код:

procedure TForm1.FormCreate(Sender: TObject);

begin

if IsInternetConnected = True then

begin

N2.Enabled:=True;

N5.Enabled:=True;

N8.Enabled:=True;

end

end;

Переход по ссылкам
Вот пример процедуры

Код:

procedure TForm1.N5Click(Sender: TObject);

begin

ShellExecute(handle,'open','http://forum.oszone.net/',nil,nil,SW_SHOW);

end;

не разбирался, какие значения он отдаёт функции, главное, заменить адрес сайта на свой.