Проверка INTERNET_CONNECTION( с закрытием формы)

[АлександрDelphi]

Народ помогите как сделать что бы форма не открывалась если нет интернет соединения

{$R *.dfm}
function IsConnectedToInternet(lpdwFlags: LPDWORD): Boolean;
const
WininetDLL = 'wininet.dll';
var
hWininetDLL: THandle;
dwReserved: DWORD;
fn_InternetGetConnectedState: function(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;
begin
Result := False;
dwReserved := 0;
hWininetDLL := LoadLibrary(WininetDLL);
if hWininetDLL > 0 then
begin
@fn_InternetGetConnectedState := GetProcAddress(hWininetDLL,'InternetGetConnectedState');
if Assigned(fn_InternetGetConnectedState) then
begin
Result := fn_InternetGetConnectedState(lpdwFlags, dwReserved);
end;
FreeLibrary(hWininetDLL);
end else
raise Exception.Create('Unable to locate function InternetGetConnectedState in library ' + WininetDLL);
end;

procedure TForm1.FormCreate(Sender: TObject);
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if IsConnectedToInternet(@dwConnectionTypes) then
(тут надо сделать что бы форма открывалась)
else
( тут что бы  форма не открывалась)

end;

Или же какой нибудь другой способ сколько искал в сетях так и не нашел не чего путного или подходящего ..
Screenshot_1.png
А то когда интернета нету вот такая ошибка и форма открывается а надо что бы она не открывалась а само уничтожалась просто закрывалась ..

[Alex11223]

Зачем так проверять? Просто пробуйте сделать нормальное действие требующее интернета (отправка запроса своему серверу и т.п.)

[Almaz92]

Я тебе реально могу помочь с кодом, у меня есть то что тебе надо! Если что пиши на 920403@mail.ru

[vlad1389]

Да, мне тоже интересно, зачем это?

[Almaz92]

Большинство методов проверки подключения интернета в дельфи приложениях, которые пестрят везде в интернете не универсальны, и часто просто не работают или работают не так как надо! Всё зависит от того какой интернет у вас! Мне специально на заказ писали модуль, довольно обширный! Вот этот модуль позволяет корректно обработать именно ту задачу, которая здесь описана! И это действует 100% для любого типа интернета!

[Alex11223]

Зачем вообще нужна какая-то специальная проверка? Если программе для чего-то нужен интернет, то при совершении действия требующем его вы и так узнаете об его отсутствии (выпадет Exception и т.п.)

[Almaz92]

Я так думаю, что челу необходима просто своя программка - типа контролёр интернета! Ну как логический элемент микросхемы! Вход и выход! Если на входе есть интернет то на выходе 1, если на входе нет интернета, то на выходе 0! А как уже применить этот логический элемент, это уже зависит от фантазии прогера! Этот ключевой логический элемент может управлять в программах хоть чем угодно! У чела просто не работал по ходу сам код и он не мог его найти нигде, вот и всё!

[Alex11223]

Не необходима, он пытается защитить свою мегапрограмму от взломщиков запускающих ее без интернета.
Поэтому непонятно почему просто не попытаться при запуске сделать то действие (которое очевидно уже реализовано или должно быть реализовано), для которого программе и нужен интернет.

[Almaz92]

Да! кстати я вспомнил! Один знакомый товарищ был любитель всякого мусора в сети по заработку легких денег, ну короче лох одним словом! И вот однажды он скачал там где то программу лохотрон - генератор денег! Он уже хотел оплачивать активацию 370 рублей, ну развод на деньги! Я ему говорю, ты идиот! Он обижается! Ну давай проверим очень элементарно! Отключай интернет говорю! Зачем, спрашивает он! А затем говорю я! Ладно! Отключил инет! Запускай прогу! Говорю я! И что? А то, что мошенники идиоты! Не понял? Прога начисляет бабло без интернета! Тебе это на арабском объяснить? БЛИН! Вот тебе блин! Просто горе прогеры забыли включить туда функцию проверки интернета! Дилетанты! Детский сад!