Запоздалый запуск программы

[Пепел Феникса]

кодов проверки наличия инета много.
а в вашем случае try except можно

[Mihanches]

Сообщение от Пепел Феникса

кодов проверки наличия инета много.
а в вашем случае try except можно

А как это выглядит в форме кода?

[Dj_smart]

try
  // что-то делаешь, тут возможна "ошибка"
except
  // тут "ловишь" ошибку, в случае ошибке в блоке выше -- управление передается этому блоку
end;

[Mihanches]

Сообщение от Dj_smart

try
  // что-то делаешь, тут возможна "ошибка"
except
  // тут "ловишь" ошибку, в случае ошибке в блоке выше -- управление передается этому блоку
end;

Ну яж попросил на конкретном приммере. Вот как я должен определить в каком месте тут должна быть моя команда из примера?

[ZvEr_HaCkEr]

uses winInet;
................................... .............................
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnec tionTypes, 0);
end;
................................... ................................... .........................
try
if IsConnectedToInternet then ..... //начать работу проги
except
showmessage('для работы приложения необходимо интернет соединение!');
exitprocess(0);
end;

[Johnson]

тогда уж немного по-другому....

uses winInet;
................................... .............................
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
................................... ................................... .........................

while not(IsConnectedToInternet) do begin
sleep(100);application.processmessages;
end;

{тут уже действия, которые нужны после того, как инет появится}