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

Вниз

Открытие страницы IE в полноэкранном режиме в текущем окне   Найти похожие ветки 

 
Trekker ©   (2011-02-24 09:21) [0]

Здравствуйте.
Пытаюсь написать программу для обновления окна сайта. Есть информационный киоск в нем запускается IE с ключем -k. Т.к. многие клиенты, работающие на киоске бросают его в любом месте сайта, хотелось бы написать программу, которая возвращала бы его на домашнюю страницу при простое например через 5 мин. Было принято решение писать экранную заставку, которая будет просто обновлять IE на домашнюю страницу. Сам я в Delphi новичок, на просторах Инета нашел много способов, как можно открыть страницу в текущем окне IE, но проблема в том, что каким бы я способом обновления не пользовлася, если IE запущен с ключем -k или просто в полноэкранном режиме по F11, то ничего не получается запускается еще один процесс IE. Если IE работает в обычном режиме, все работает нормально. Подскажите как можно заставить IE, запущенный с ключем -k обновляться до домашней страницы в текущем окне без запуска второго процесса или открывать произвольную страницу. Ниже привожу код программы.

var
Form1: TForm1;
DDE : TDDECLientConv;
URL : String;
URLFired : Boolean;
crsm, crs:Tpoint;

procedure TForm1.FormCreate(Sender: TObject);

begin
Getcursorpos(crs);
URL := "http://www.trudvsem.ru";
DDE := TDDEClientConv.Create(nil);
try
DDE.ServiceApplication := "iexplore";
if DDE.SetLink("iexplore", "WWW_OpenURL") then
if (DDE.RequestData(URL + ",,1") <> nil) then
if DDE.SetLink("iexplore", "WWW_Activate") then
URLFired := DDE.RequestData("0,0") <> nil;
finally
DDE.Free;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
getcursorpos(crsm);
if crsm.x<>crs.x then begin showcursor(true); close;
end;
end;
end.


 
clickmaker ©   (2011-02-24 12:16) [1]

> возвращала бы его на домашнюю страницу при простое например
> через 5 мин

<META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">


 
sniknik ©   (2011-02-24 12:55) [2]

> <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">
а можно сделать чтобы считало с момента последнего действия пользователя? т.е. например клиент "тупит" перед терминалом, что то вводит/стирает ходит по меню ... и вот когда он наконец то "решился" денег заплатить/... его вдруг на другую страничку кидает... нехорошо.

думаю в вопросе это и имеется в виду, не безусловное время, а с момента "покинутости" киоска (клиент ушел).


 
Trekker ©   (2011-02-24 12:56) [3]


> <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">


И куда мне это воткнуть ?


 
Trekker ©   (2011-02-24 12:56) [4]


> <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm">


И куда мне это воткнуть ?


 
trekker ©   (2011-02-24 12:57) [5]

да именно когда клиент ушел


 
clickmaker ©   (2011-02-24 13:42) [6]

> т.е. например клиент "тупит" перед терминалом, что то вводит/стирает
> ходит по меню

если ходит по меню, то это уже перезагрузка страницы, как правило.
Ну, можно запустить таймер, сбрасывать по mousemove/keydown. В таймере document.location.href="default.htm"


 
Trekker ©   (2011-02-24 14:03) [7]

как я понял <META HTTP-EQUIV="REFRESH" CONTENT="300;URL=default.htm"> это тег. В HTML я не силен. Создал HTML документ. Что должно быть в default.htm?

<html>
<head>
<META HTTP-EQUIV="REFRESH" CONTENT="15;URL=default.htm">
</head>
</html>


 
trekker ©   (2011-02-24 14:12) [8]


> если ходит по меню, то это уже перезагрузка страницы, как
> правило.Ну, можно запустить таймер, сбрасывать по mousemove/keydown.
>  В таймере document.location.href="default.htm"


clickmaker, У меня проблема с обновление страницы именно в текущем окне, когда IE запущен в режиме киоск с ключем -k, или в полноэкранном режиме. У меня происходит обновление но запускается второй процесс IE. В этом все проблема.



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

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

Наверх




Память: 0.49 MB
Время: 0.01 c
6-1237972450
антон1243232
2009-03-25 12:14
2011.06.05
Проблема со склейкой пакетов


15-1298022297
TUser
2011-02-18 12:44
2011.06.05
Про пятивалентный углерод


1-1255806622
minomorf
2009-10-17 23:10
2011.06.05
Как в TSynEdit сделать подсветку строки (как при ошибке)


2-1298569806
RMan
2011-02-24 20:50
2011.06.05
Прозрачное неактивное окно


2-1298526442
AltCtrlDel
2011-02-24 08:47
2011.06.05
Многоязыковое приложение. ITE не нравится