* In your WHEN-NEW-FORM-INSTANCE Code */
declare 
  hWnd PLS_INTEGER := get_window_property(FORMS_MDI_WINDOW, WINDOW_HANDLE);
  CheckTimeout TIMER;
begin
  -- Start the process in the DLL that hooks into the Keyboard and mouse
  WIN_API_SESSION.TIMEOUT_START_TIMER(hWnd);

  -- Start the Forms Timer that will be used to check the idle time
  CheckTimeout := CREATE_TIMER('TIMEOUT', 1, REPEAT);
end;

/* In your WHEN-TIMER-EXPIRED Code */
if get_application_property(TIMER_NAME) = 'TIMEOUT' then 
  if WIN_API_SESSION.TIMEOUT_GET_INACTIVE_TIME > 60 then
    -- boot the user off if been idle for 1 min or more
       exit_form;
  end if;
end if;

/* In Your Exit or POST-FORM code */
WIN_API_SESSION.TIMEOUT_DELETE_TIMER;

declare 
  hWnd PLS_INTEGER := get_window_property(FORMS_MDI_WINDOW, WINDOW_HANDLE);
  CheckTimeout TIMER;
  one_minute NUMBER(5) := 60000;
begin
  -- Start the process in the DLL that hooks into the Keyboard and mouse
  WIN_API_SESSION.TIMEOUT_START_TIMER(hWnd);

  -- Start the Forms Timer that will be used to check the idle time
  CheckTimeout := CREATE_TIMER('TIMEOUT', one_minute, NO_REPEAT);
end;

if get_application_property(TIMER_NAME) = 'TIMEOUT' then 
  if WIN_API_SESSION.TIMEOUT_GET_INACTIVE_TIME > 30 then
  	message('session expires');
  	message('session expires');
    -- boot the user off if been idle for 1 min or more
       --exit_form(no_validate);
       clear_message;
       open_form('c:/sams/lock', activate, session);
  end if;
end if;

TIMEOUT_START_TIMER

When_New_Form_Instance