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

[Trekker]

Здравствуйте.
Пытаюсь написать программу для обновления окна сайта. Есть информационный киоск в нем запускается 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.