Автозакрытие приложения

[romantik1993]

Здравствуйте. Подскажите пожалуйста как сделать так чтобы программа автоматически закрывалась после 30 минут бездействия.

[Аватар]

Пользователь очень рад будет )) Чем политика безопасности не устраивает?

[kropotkina-alice]

Сообщение от romantik1993

Здравствуйте. Подскажите пожалуйста как сделать так чтобы программа автоматически закрывалась после 30 минут бездействия.

Очень просто.
На OnKeyDown формы (не забудьте KeyPreview поставить в True) и на OnMouseMove назначьте обработчик, перезапускающий таймер на 30 минут.
А на событие OnTimer сделайте Close...

[Filka]

function LastInput: DWORD;
var
  LastInputInfo: TLastInputInfo;
begin
  LastInputInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LastInputInfo);
  Result := GetTickCount - LastInputInfo.dwTime;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  cTimeDelta = 5000; //30 * 60 * 1000;
begin
  if LastInput >= cTimeDelta then
  begin
    Timer1.Enabled := False;
    Application.Terminate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;