|
|
 | |  |
|
Проверка соединения с интернетом (delphi 7)
uses
WinInet;
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:= INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet
then ShowMessage('Connected ^_^')
else ShowMessage('Not Connected T_T');
end;
|
| Категория: DELPHI | Добавил: SeM (01.04.2011)
|
| Просмотров: 863
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
