How to display screen saver every 10 seconds ?

Question

I want to display Screen Saver every 10 seconds as long as the user doesn't make anything on his computer.
I did that :-
WHEN-NEW-FORM-INSTANCE
declare
     t timer;
begin
     t:= create_timer('Hany',10000,repeat);
end;
WHEN-TIMER-EXPIRED
if :System.MODE = 'NORMAL' then
     Host('C:\WINDOWS\system32\ssmypics.scr');
End if;
but in RunTime the Screen Saver's Setting appear not the Screen Saver itself ..... like shown below :-
http://img118.imageshack.us/img118/245/errorv.png
that's seems weird because when I run the Screen Saver directly from Start>>RUN :-
C:\WINDOWS\system32\ssmypics.scr
it is working nice without appearing of the setting.
so, what's went wrong ????
I attached the fmb file to have a look for it if you like:-
http://www.4shared.com/file/97992483/5ddd2f8c/Screen_Saver.html
Edited by: HanyFreedom on Apr 14, 2009 3:40 PM

Answer 1

There is a built-in screensaver in windows, why rebuilt that functionality on your own? If you really need it, try
HOST('cmd /c C:\WINDOWS\system32\ssmypics.scr');I assume that you are using forms 6i? For in 10g this will now work on the client-side, because HOST is executed on the app-server.
Edited by: Andreas Weiden on 14.04.2009 17:45