Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.27;
Скачать: CL | DM;

Вниз

Проблема с GetConnect   Найти похожие ветки 

 
Виталий Гаврилов   (2008-04-03 21:07) [0]

Уважаемые Мастера! Помогите найти проблему! У меня загрузка страницы идет, а заказчика нет!

procedure TForm5.FindAddress;
var
 Flags: OLEVariant;
 defdir: string;
 strKind: string;
begin
 Flags := 0;
 defdir := ExtractFileDir(Application.ExeName);
 if GetConnect(strKind)and(strkind="Modem") then
 WebBrowser1.Navigate(WideString("http://www.0.ru/0/0/"), Flags, Flags, Flags, Flags)
 else
 abcAnimationFrame1.ActivePage:= abcPage10;
end;

function TForm5.GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := "";
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := "Modem";
if (flags and 2) = 2 then strKind := "LAN";
if (flags and 4) = 4 then strKind := "Proxy";
if (flags and 8) = 8 then strKind := "Modem Busy";
end;
end;


 
Сергей М. ©   (2008-04-04 08:37) [1]

Так мож заказчик ходит в Тырнет не через модем ?)



Страницы: 1 вся ветка

Текущий архив: 2009.09.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
1-1216545032
jurez
2008-07-20 13:10
2009.09.27
работа в BASIC с объектом из DELPHI DLL


2-1248171263
djkondakov
2009-07-21 14:14
2009.09.27
Проблема с файлами


2-1248330602
JohnKorsh
2009-07-23 10:30
2009.09.27
Как средствами Dilphi создать точку восстановления?


15-1248544745
xayam
2009-07-25 21:59
2009.09.27
Подскажите каталог RSS-лент на определенную тему


4-1218200398
plotnick
2008-08-08 16:59
2009.09.27
Как проверить аккаунт пользователя?