Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.02.2016, 10:19
SKIPtr SKIPtr вне форума
Начинающий
 
Регистрация: 15.03.2015
Сообщения: 108
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Запуск програмы при простое

драсте мне нужно выполнить определеную операцию после определеного времени простоя
я это реализовал вот так

Код:
const tp = 3; {время простоя}

var
  tda : DWord;
  liInfo: TLastInputInfo;


function Ida : DWord;
var a : integer;
begin
  a := (tda - liInfo.dwTime) DIV 60000;
  Result := a;
end;

procedure Form.Timer1Timer(Sender: TObject);
var t : DWord;
begin
  tda := GetTickCount;   
  liInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(liInfo);
  t := Ida;
  if t = tp then
      {действие при простое}
end

после того как приходит время действия при простое
действие запускаеться каждый раз при входе в таймер
а мне нужно шоб после действия таймер простоя начал отщет заново

Последний раз редактировалось lmikle, 03.02.2016 в 19:01.
Ответить с цитированием
  #2  
Старый 03.02.2016, 11:14
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Это делается несколько иначе. Надо работать с событием procedure ApplicationOnIdle(Sender: TObject; var Done: Boolean);
Попробую скинуть попозже рабочий примерчик.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 03.02.2016 в 11:19.
Ответить с цитированием
  #3  
Старый 03.02.2016, 11:39
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

пример выполняет действие через 5 сек. после бездействия и повторяет выполнять действие каждые 5 сек. если бездействие продолжается:
Код:
unit Unit1;

interface

uses
  Math,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ApplicationEvents1: TApplicationEvents; (* OnIdle *)
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TickCount: DWORD = 0;

implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
var
  LastInputInfo: TLastInputInfo;
begin
  LastInputInfo.cbSize:=SizeOf(TLastInputInfo);
  GetLastInputInfo(LastInputInfo);
  if LastInputInfo.dwTime<>TickCount then TickCount:=Max(TickCount, LastInputInfo.dwTime);

  if GetTickCount-TickCount>5000 then
  begin
    TickCount:=GetTickCount;
    (* to do *)
    Memo1.Lines.Add('*');
  end;
end;

end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
SKIPtr (03.02.2016)
  #4  
Старый 03.02.2016, 19:25
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,553
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Страдалецъ
Это делается несколько иначе. Надо работать с событием procedure ApplicationOnIdle(Sender: TObject; var Done: Boolean);
Попробую скинуть попозже рабочий примерчик.
Рабочий примерчик с сайта )

http://www.delphisources.ru/pages/so...e-monitor.html
Ответить с цитированием
  #5  
Старый 03.02.2016, 20:49
SKIPtr SKIPtr вне форума
Начинающий
 
Регистрация: 15.03.2015
Сообщения: 108
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Admin
Рабочий примерчик с сайта )
этот пример как и все те шо есть в интернете
если меня б меня устраивал тот вариант я бы не искал доругова

вот NumLock посоветовал по существу
я уже думал о том шо тут нужен промежуточный буфер но пока в голову не лезло как это реализовать
а тут пример прям в точку
Ответить с цитированием
  #6  
Старый 04.02.2016, 08:43
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цитата:
Сообщение от SKIPtr
этот пример как и все те шо есть в интернете
если меня б меня устраивал тот вариант я бы не искал доругова

вот NumLock посоветовал по существу
я уже думал о том шо тут нужен промежуточный буфер но пока в голову не лезло как это реализовать
а тут пример прям в точку
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #7  
Старый 04.02.2016, 19:36
SKIPtr SKIPtr вне форума
Начинающий
 
Регистрация: 15.03.2015
Сообщения: 108
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

кстате я уже давно не использую Application.Idle
потому шо когда я раньше это использовал заметил шо процес у которого используют Idle сильно грузит систему поэтому я стараюсь Idle заменять на таймер
и еще я не проверял но мне кажеться Idle следит за простоем в Application а не в системе(скажите шо это не так)
а мне нужен не чистый простой а больше бездействие пользователя
потому што програма должна щитать время
например отщитывать пол часа простоя
а в это время ком должен транслировать ТВ передачи
Ответить с цитированием
  #8  
Старый 04.02.2016, 19:56
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Все в порядке с этим событием, если не считать в нем факториал миллиона
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:58.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025