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

Вниз

Как принудительно выйти из авторомного режима в TWebBrowser?   Найти похожие ветки 

 
kofman ©   (2002-11-10 00:11) [0]

Помогите советом, я закачиваю с помощью TWebBrowser страничку, но если Internet Explorer у меня находится в автономном режиме, то выскакивает окно с просьбой "подключится к Интернет, т.к. данная страница не доступна в автономном режиме". Мастаки, как сделать, что бы это окно не появлялась? Может есть способ принудительно вывести IE из автономного режима или хотябы узнать, что браузер находится в автономном режиме - я тогда и закачивать не буду? Заранее спасибо.


 
kofman ©   (2002-11-10 14:29) [1]

Мастера помогите!!!!!


 
int64 ©   (2002-11-10 20:59) [2]

uses ..., WinInet;
...
procedure SetGlobalOffline(Value: Boolean);
const
INTERNET_STATE_DISCONNECTED_BY_USER = $10;
ISO_FORCE_DISCONNECTED = $1;
INTERNET_STATE_CONNECTED = $1;
var
ci: TInternetConnectedInfo;
dwSize: DWORD;
begin
dwSize := SizeOf(ci);
if (Value) then begin
ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
ci.dwFlags := ISO_FORCE_DISCONNECTED;
end else begin
ci.dwFlags := 0;
ci.dwConnectedState := INTERNET_STATE_CONNECTED;
end;
InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ci, dwSize);
end;


SetGlobalOffline(TRUE) = Work Offline;

SetglobalOffline(FALSE)= Work Online;

P.S. Юзайте TEmbeddedWB.


 
kofman ©   (2002-11-10 22:26) [3]

>int64 это как раз то что нужно, огромное Вам спасибо.



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
14-25034
Ketmar
2002-12-19 15:27
2003.01.09
власть развращает...


3-24779
Bocman
2002-12-15 23:27
2003.01.09
Две записи вместо одной


7-25122
Lamer2000
2002-07-30 12:34
2003.01.09
Перехват нажати кнопки.


1-24883
SergeyDon
2002-12-27 16:11
2003.01.09
MS-Agent с чем его едят?


4-25124
delphi5.01
2002-11-15 14:09
2003.01.09
Kak otlovit klavishi