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

[Malfatto]

Как сделать так, чтобы при запуске программы проверялось, подключен ли пользователь к интернету или нет? Например, если подключения к интернету нет, то... ну я кое что блокирую. - решено

И также еще вопрос, как сделать так, чтобы при нажатии на нужную мне кнопку открывался браузер с определенной страницей? - решено

[Malfatto]

Все решил я эти задачи. Завтра выложу решения ибо сейчас я сижу с телефона

[Malfatto]

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

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;

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