Как экстренно остановить таймер?

@DANNY4ever · Регистрация: 16.09.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите пожалуйста как экстренно остановить таймер. У меня такая ситуация, работает таймер в котором прописан sleep в 4 секунды, в это время работает второй таймер и проверяет какую-то ситуацию, if - если ситуация совпадает, then - тогда 2й таймер отключает 1й таймер Timer1.Enabled:=false; и запускает событие. Беда в том что это событие надо выполнить очень быстро, а он ждет завершение события 1ого таймера, а это как минимум 4 секунды прописанные в слипе. Как остановить 1й таймер полностью чтобы сбрасывал свое событие и выключался? Перерыл в инете кучу информации, killtimer, abort, exit, как это применить в моем случае не знаю подскажите пожалуйста.

@Algoritmer · 18.09.2013, 17:43

Проверь, есть ли такая функция: Timer1.kill, и если что используй в коде 2-го таймера вместо Timer1.Enabled:=false

@DANNY4ever · 18.09.2013, 17:44 **[ТС]**

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

Проверь, есть ли такая функция: Timer1.kill

))))искал нету))))

@~~Lirrk~~ · 18.09.2013, 17:47

А вы плюньте на два таймера и оставьте один. Используйте счётчик и флаги.

@DANNY4ever · 18.09.2013, 17:50 **[ТС]**

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

А вы плюньте на два таймера и оставьте один. Используйте счётчик и флаги.

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

@Algoritmer · 18.09.2013, 17:51

А первый таймер отключать обязательно? Может быть можно просто паралельно выполнять желаемое событие? (например в другом потоке)

@~~Lirrk~~ · 18.09.2013, 17:54

DANNY4ever,
А это уже чушь - два таймера, да ещё синхронизировать их. Так никогда не делается. Таймер нужен не для этого.

@Игорь[Igor] · 18.09.2013, 17:55

А зачем в таймере еще и sleep?

@DANNY4ever · 18.09.2013, 18:01 **[ТС]**

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

А первый таймер отключать обязательно? Может быть можно просто паралельно выполнять желаемое событие? (например в другом потоке)

первый таймер зажимает клавишу на клавиатуре "G" и ждет 4 секунды потом отжимает, 2й таймер должен нажать пробел, он не может нажать пробел пока 1й таймер не подождет 4 секунды, даже если во втором таймере прописать отжатие клавиши "G" он все равно сделает это через 4 секунды.

Добавлено через 1 минуту

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

DANNY4ever,
А это уже чушь - два таймера, да ещё синхронизировать их. Так никогда не делается. Таймер нужен не для этого.

а что нужно для этого? у меня 8 таймеров, если я все запихаю в 1 будет очень длинный код я в нем никогда не разберусь.

Добавлено через 1 минуту

Сообщение от Игорь[Igor]

А зачем в таймере еще и sleep?

таймер нажимает на кнопку клавы и отпускает через 4 секунды, я не знаю как это сделать без слипа.

@~~Lirrk~~ · 18.09.2013, 18:02

DANNY4ever,
8???????

@DANNY4ever · 18.09.2013, 18:03 **[ТС]**

вот код если интересно

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Buttons,
  Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Button2: TButton;
    Timer7: TTimer;
    Timer8: TTimer;
    Button3: TButton;
    Timer9: TTimer;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
  private
    procedure wmhotkey (var mess:twmhotkey);message wm_hotkey;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
   Form1: TForm1;
   dc1:hdc;
   dc2:hdc;
   dc3:hdc;
   dc4:hdc;
   dc5:hdc;
   Pixel1 : TColor;
   Pixel2 : TColor;
   Pixel3 : TColor;
   Pixel4 : TColor;
   Pixel5 : TColor;
 
implementation
 
{$R *.dfm}
procedure Tform1.wmhotkey(var mess: TWMHotKey);
   begin
      if mess.HotKey=1 then form1.Button1.Click;
      if mess.HotKey=2 then
         begin
            form1.Button2.Click;
            form1.Button3.Click;
            form1.BitBtn1.Click;
            form1.BitBtn2.Click;
            form1.BitBtn3.Click
         end;
      if mess.HotKey=3 then form1.BitBtn4.Click;
   end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
   begin
      form1.Label3.Caption:='БОТ ВКЛЮЧЕН';
      timer4.Enabled:=true;
   end;
 
 
procedure TForm1.BitBtn2Click(Sender: TObject);
   begin
      timer1.Enabled:=true;
   end;
 
procedure TForm1.BitBtn3Click(Sender: TObject);
   begin
      timer3.Enabled:=true;
   end;
 
procedure TForm1.BitBtn4Click(Sender: TObject);
   begin
      Form1.Label3.Caption:='БОТ ВЫКЛЮЧЕН';
      Timer4.Enabled:=false;
      Timer1.Enabled:=false;
      Timer3.Enabled:=false;
      Timer7.Enabled:=false;
      Timer8.Enabled:=false;
   end;
 
procedure TForm1.Button1Click(Sender: TObject);
   begin
      sleep(1000);
      keybd_event(ord('1'), MapVirtualKey(ord('1'), 0), 0, 0);
      keybd_event(ord('1'), 0, KEYEVENTF_KEYUP, 0);
      setcursorpos(346,327);
      mouse_event(mouseeventf_leftdown,0,0,0,0);
      mouse_event(mouseeventf_leftup,0,0,0,0);
      sleep(1000);
      keybd_event(ord('2'), MapVirtualKey(ord('2'), 0), 0, 0);
      keybd_event(ord('2'), 0, KEYEVENTF_KEYUP, 0);
      setcursorpos(350,327);
      mouse_event(mouseeventf_leftdown,0,0,0,0);
      mouse_event(mouseeventf_leftup,0,0,0,0);
      sleep(1000);
      keybd_event(ord('3'), MapVirtualKey(ord('3'), 0), 0, 0);
      keybd_event(ord('3'), 0, KEYEVENTF_KEYUP, 0);
      setcursorpos(354,327);
      mouse_event(mouseeventf_leftdown,0,0,0,0);
      mouse_event(mouseeventf_leftup,0,0,0,0);
   end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Timer7.Enabled:=true;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Timer8.Enabled:=true;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   begin
      unregisterhotkey(handle,1);
      unregisterhotkey(handle,2);
      unregisterhotkey(handle,3);
      releasedc(0,dc4);
   end;
 
procedure TForm1.FormCreate(Sender: TObject);
   begin
      registerhotkey(Handle,1,mod_control,vk_F1);
      registerhotkey(Handle,2,mod_control,vk_F2);
      registerhotkey(Handle,3,mod_control,vk_F3);
   end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
   begin
      form1.Timer2.Enabled:=false;
      dc2:=getdc(0);
      Pixel2:=GetPixel(dc2,350,325);
      if (form1.Timer5.Enabled=false) and (form1.Timer6.Enabled=false) then
         begin
            if Pixel2<>$FFFFFF then
            begin
            releasedc(0,dc2);
            form1.Timer1.Enabled:=false;
            form1.Timer4.Enabled:=false;
            form1.Timer3.Enabled:=false;
            form1.Timer2.Enabled:=true;
            sleep(50)
            end;
         end;
      releasedc(0,dc2);
   end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
   begin
       form1.Timer2.Enabled:=false;
       form1.Timer1.Enabled:=false;
       sleep(10);
       keybd_event(ord('2'), MapVirtualKey(ord('2'), 0), 0, 0);
       keybd_event(ord('2'), 0, KEYEVENTF_KEYUP, 0);
       keybd_event(71, 0, 0, 0);
       sleep(4000);
       keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       keybd_event(16, 0, 0, 0);
       keybd_event(66, 0, 0, 0);
       sleep(10);
       keybd_event(66, 0, KEYEVENTF_KEYUP, 0);
       keybd_event(16, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       setcursorpos(531,16);
       sleep(10);
       mouse_event(mouseeventf_leftdown,0,0,0,0);
       mouse_event(mouseeventf_leftup,0,0,0,0);
       sleep(10);
       keybd_event(84, 0, 0, 0);
       keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
       form1.Timer4.Enabled:=true;
       form1.Timer1.Enabled:=true;
       form1.Timer3.Enabled:=true;
   end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
   begin
      form1.Timer6.Enabled:=false;
      dc3:=getdc(0);
      Pixel3:=GetPixel(dc3,354,325);
      if (form1.Timer2.Enabled=false) and (form1.Timer5.Enabled=false) then
         begin
            if Pixel3<>$FFFFFF then
               begin
                  form1.Timer6.Enabled:=false;
                  form1.Timer1.Enabled:=false;
                  form1.Timer4.Enabled:=false;
                  form1.Timer6.Enabled:=true;
                  sleep(50)
               end;
         end;
      releasedc(0,dc3);
   end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
   begin
      form1.Timer5.Enabled:=false;
      dc1:=getdc(0);
      Pixel1:=GetPixel(dc1,346,325);
      if (form1.Timer2.Enabled=false) and (form1.Timer6.Enabled=false) then
         begin
            if Pixel1<>$FFFFFF then
            begin
            releasedc(0,dc1);
            form1.Timer4.Enabled:=false;
            form1.Timer1.Enabled:=false;
            form1.Timer3.Enabled:=false;
            form1.Timer5.Enabled:=true;
            sleep(50)
            end;
         end;
      releasedc(0,dc1);
   end;
 
procedure TForm1.Timer5Timer(Sender: TObject);
   begin
       form1.Timer5.Enabled:=false;
       form1.Timer4.Enabled:=false;
       sleep(10);
       keybd_event(ord('1'), MapVirtualKey(ord('1'), 0), 0, 0);
       keybd_event(ord('1'), 0, KEYEVENTF_KEYUP, 0);
       keybd_event(71, 0, 0, 0);
       sleep(4000);
       keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       keybd_event(16, 0, 0, 0);
       keybd_event(66, 0, 0, 0);
       sleep(10);
       keybd_event(66, 0, KEYEVENTF_KEYUP, 0);
       keybd_event(16, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       setcursorpos(531,16);
       sleep(10);
       mouse_event(mouseeventf_leftdown,0,0,0,0);
       mouse_event(mouseeventf_leftup,0,0,0,0);
       sleep(10);
       keybd_event(84, 0, 0, 0);
       keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
       form1.Timer4.Enabled:=true;
       form1.Timer1.Enabled:=true;
       form1.Timer3.Enabled:=true;
   end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
   begin
       form1.Timer6.Enabled:=false;
       form1.Timer3.Enabled:=false;
       sleep(10);
       keybd_event(ord('3'), MapVirtualKey(ord('3'), 0), 0, 0);
       keybd_event(ord('3'), 0, KEYEVENTF_KEYUP, 0);
       keybd_event(71, 0, 0, 0);
       sleep(4000);
       keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       keybd_event(16, 0, 0, 0);
       keybd_event(66, 0, 0, 0);
       sleep(10);
       keybd_event(66, 0, KEYEVENTF_KEYUP, 0);
       keybd_event(16, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       setcursorpos(531,16);
       sleep(10);
       mouse_event(mouseeventf_leftdown,0,0,0,0);
       mouse_event(mouseeventf_leftup,0,0,0,0);
       sleep(10);
       keybd_event(84, 0, 0, 0);
       keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
       form1.Timer4.Enabled:=true;
       form1.Timer1.Enabled:=true;
       form1.Timer3.Enabled:=true;
   end;
 
procedure TForm1.Timer7Timer(Sender: TObject);
   begin
      dc4:=getdc(0);
      Pixel4:=GetPixel(dc4,468,570);
      if Pixel4=$427B2C then
         begin
         form1.Timer1.Enabled:=false;
         form1.Timer2.Enabled:=false;
         form1.Timer3.Enabled:=false;
         form1.Timer4.Enabled:=false;
         form1.Timer5.Enabled:=false;
         form1.Timer6.Enabled:=false;
         form1.Timer8.Enabled:=false;
         keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
         sleep(50);
         keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
         sleep(50);
         keybd_event(32, 0, 0, 0);
         keybd_event(32, 0, KEYEVENTF_KEYUP, 0);
         sleep(50);
         keybd_event(32, 0, 0, 0);
         keybd_event(32, 0, KEYEVENTF_KEYUP, 0);
         sleep(50);
         keybd_event(84, 0, 0, 0);
         keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
         form1.Timer1.Enabled:=true;
         form1.Timer3.Enabled:=true;
         form1.Timer4.Enabled:=true;
         form1.Timer8.Enabled:=true;
         end;
      releasedc(0,dc4);
end;
 
procedure TForm1.Timer8Timer(Sender: TObject);
begin
dc5:=getdc(0);
      Pixel5:=GetPixel(dc5,27,625);
      if Pixel5=$C6DCD7 then
            begin
            form1.Timer4.Enabled:=false;
            form1.Timer3.Enabled:=false;
            form1.Timer1.Enabled:=false;
            form1.Timer7.Enabled:=false;
            sleep(10);
            setcursorpos(174,683);
            sleep(500);
            mouse_event(mouseeventf_leftdown,0,0,0,0);
            mouse_event(mouseeventf_leftup,0,0,0,0);
            sleep(10);
            setcursorpos(71,68);
            sleep(500);
            mouse_event(mouseeventf_leftdown,0,0,0,0);
            mouse_event(mouseeventf_leftup,0,0,0,0);
            sleep(300);
            mouse_event(mouseeventf_leftdown,0,0,0,0);
            mouse_event(mouseeventf_leftup,0,0,0,0);
            form1.Timer4.Enabled:=true;
            form1.Timer3.Enabled:=true;
            form1.Timer7.Enabled:=true;
            form1.Timer1.Enabled:=true
            end;
      releasedc(0,dc5);
end;
 
end.

@~~Lirrk~~ · 18.09.2013, 18:13

Да говорят ва, элементарно.
У вас работает таймер. Он крутится постоянно. Скажем интервал у него 10 мс
4000 / 10 - получаем количество шагов таймера для 4 сек.
Где-то нажимается клавиша и устанавливается флаг удержания. По этому флагу начинает работать счётчик.
Как только пройдёт нужное количество шагов, клавиша опустится и сбросится флаг удержания.
Если за это время произойдёт проверка, она обнулит счётчик и счёт тут же остановиться.
Тут уж можно и флаг остановки поставить, и по этому флагу запустить событие.

@DANNY4ever · 18.09.2013, 18:17 **[ТС]**

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

Да говорят ва, элементарно.
У вас работает таймер. Он крутится постоянно. Скажем интервал у него 10 мс
4000 / 10 - получаем количество шагов таймера для 4 сек.
Где-то нажимается клавиша и устанавливается флаг удержания. По этому флагу начинает работать счётчик.
Как только пройдёт нужное количество шагов, клавиша опустится и сбросится флаг удержания.
Если за это время произойдёт проверка, она обнулит счётчик и счёт тут же остановиться.
Тут уж можно и флаг остановки поставить, и по этому флагу запустить событие.

ну так я не знаю как ставят эти флаги и принцип их работы))), подскажите пожалуйста, или ссылку с мануалом скиньте пожалуйста, я в delphi самоучка, знаю только элементарные основы.

@~~Lirrk~~ · 18.09.2013, 18:30

флаг, семафор, это обычная переменная типа boolean
Скажем её имя Pause
Вначале Pause:=false;
есть ещё счётчик tim_step;

Вот вы чем-то нажимаете клавишу...

~~~~~~~~~~~~~~~~~~~
И сразу
tim_step:= 4000 div Timer1.interval;
Pause:=true;//установка флага

А тут вот событие таймера
if Pause then begin
tim_step:= tim_step -1;
if tim_step = 0 then Pause:=false;
end;

Вот так запустили таймер. а через 4 секунды остановили его

Далее в этом же обработчике.
Ваша проверка.
Если всё в порядке то Pause:=false;
Всё, счётчик остановлен преждевременно.
Отпускаете клавишу
И запускайте событие.

@Игорь[Igor] · 18.09.2013, 18:43

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

таймер нажимает на кнопку клавы и отпускает через 4 секунды, я не знаю как это сделать без слипа.

Так и сделать задать таймеру 4 секунды, и после выполнить Enabled:=false таймера при старте опять задать Enabled:=true и через 4 секунды он опять выключиться сам

Добавлено через 4 минуты
Тут таймера только из за слипов путаются лучше и равда сделать один, а это все по отдельнм процедурам кинуть и через определенное положение счетчика вызывать их, и не много будет, а наоборот все в одном месте и видно что когда вызывается

@northener · 18.09.2013, 18:47

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

первый таймер зажимает клавишу на клавиатуре "G" и ждет 4 секунды потом отжимает, 2й таймер должен нажать пробел

А зачем это все нужно? Может это можно сделать как-то не через задний проход?

@DANNY4ever · 18.09.2013, 19:08 **[ТС]**

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

флаг, семафор, это обычная переменная типа boolean
Скажем её имя Pause
Вначале Pause:=false;
есть ещё счётчик tim_step;

Вот вы чем-то нажимаете клавишу...

~~~~~~~~~~~~~~~~~~~
И сразу
tim_step:= 4000 div Timer1.interval;
Pause:=true;//установка флага

А тут вот событие таймера
if Pause then begin
tim_step:= tim_step -1;
if tim_step = 0 then Pause:=false;
end;

Вот так запустили таймер. а через 4 секунды остановили его

Далее в этом же обработчике.
Ваша проверка.
Если всё в порядке то Pause:=false;
Всё, счётчик остановлен преждевременно.
Отпускаете клавишу
И запускайте событие.

честно говоря мало что понял, покажите пожалуйста на конкретном коде

1й таймер

Delphi

procedure TForm1.Timer2Timer(Sender: TObject);
   begin
       form1.Timer1.Enabled:=false;
       sleep(10);
       keybd_event(ord('2'), MapVirtualKey(ord('2'), 0), 0, 0);
       keybd_event(ord('2'), 0, KEYEVENTF_KEYUP, 0);
       keybd_event(71, 0, 0, 0);
       sleep(4000);
       keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       keybd_event(16, 0, 0, 0);
       keybd_event(66, 0, 0, 0);
       sleep(10);
       keybd_event(66, 0, KEYEVENTF_KEYUP, 0);
       keybd_event(16, 0, KEYEVENTF_KEYUP, 0);
       sleep(10);
       setcursorpos(531,16);
       sleep(10);
       mouse_event(mouseeventf_leftdown,0,0,0,0);
       mouse_event(mouseeventf_leftup,0,0,0,0);
       sleep(10);
       keybd_event(84, 0, 0, 0);
       keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
   end;

2й таймер

Delphi

procedure TForm1.Timer7Timer(Sender: TObject);
   begin
      dc4:=getdc(0);
      Pixel4:=GetPixel(dc4,468,570);
      if Pixel4=$427B2C then
         begin
         form1.Timer2.Enabled:=false;
         sleep(50);
         keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
         sleep(50);
         keybd_event(32, 0, 0, 0);//клавиша пробел
         keybd_event(32, 0, KEYEVENTF_KEYUP, 0);//клавиша пробел
         sleep(50);
         keybd_event(84, 0, 0, 0);
         keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
         form1.Timer2.Enabled:=true;
         end;
      releasedc(0,dc4);
end;

2й должен выключить 1й и нажать пробел без задержки а моментально

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

А зачем это все нужно? Может это можно сделать как-то не через задний проход?

как? мне нужно нажатие этой клавиши в 4 секунды

@Игорь[Igor] · 18.09.2013, 19:36

Поставь таймеру 4 секунды и убери эти слипы и будет таймер тебе нажимать ее каждые 4 секунды без выключения и включения сто раз, а надо выключиш его и все

Добавлено через 1 минуту
Таймер для того и существует что срабатывает через определенное время.

Добавлено через 1 минуту
А так получается тебе таймер и не нужен, можеш просто в отдельной процедуре делать тоже самое. а время у тебя на слипах все держиться, и спрашивается зачем тебе в таком случае таймер. если он не работает как таймер?

Добавлено через 1 минуту
От сюда и виснет у тебя все, в таймере интервал стоит походу 1000. а ты его еще вешаеш на 4000 с лишним, поставь ему хоть время больше что б он не успевал срабатывать, и виснуть уже не будет.

Добавлено через 16 секунд
От сюда и виснет у тебя все, в таймере интервал стоит походу 1000. а ты его еще вешаеш на 4000 с лишним, поставь ему хоть время больше что б он не успевал срабатывать, и виснуть уже не будет.

Добавлено через 5 минут
Поставь таймеру интервал 4000

и запиши в него свое

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(ord('2'), MapVirtualKey(ord('2'), 0), 0, 0);
  keybd_event(ord('2'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(71, 0, 0, 0);
 
  keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
 
  keybd_event(16, 0, 0, 0);
  keybd_event(66, 0, 0, 0);
 
  keybd_event(66, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(16, 0, KEYEVENTF_KEYUP, 0);
 
  setcursorpos(531,16);
 
  mouse_event(mouseeventf_leftdown,0,0,0,0);
  mouse_event(mouseeventf_leftup,0,0,0,0);
 
  keybd_event(84, 0, 0, 0);
  keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
end;

включи и не выключай и увидиш что будет

Добавлено через 2 минуты
И тут же добавь с 7 таймера код и будет он работать моментально тут же и без задержки

Delphi

 dc4:=getdc(0);
      Pixel4:=GetPixel(dc4,468,570);
      if Pixel4=$427B2C then
         begin
 
         keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
 
         keybd_event(32, 0, 0, 0);//клавиша пробел
         keybd_event(32, 0, KEYEVENTF_KEYUP, 0);//клавиша пробел
 
         keybd_event(84, 0, 0, 0);
         keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
         end;
      releasedc(0,dc4);

Добавлено через 5 минут
Можеш сделать интервал меньше например как писали 10
и записать код

Delphi

inc(c);//глобальная переменная
if (c mod 400)=0 then
begin
тут выполняеш свои действия
end;

Также и на другой интервал, допустим на 5 сек

Delphi

if (c mod 500)=0 then
begin
тут выполняеш свои действия
end;

@DANNY4ever · 18.09.2013, 19:52 **[ТС]**

Сообщение от Игорь[Igor]

Добавлено через 5 минут
Поставь таймеру интервал 4000

и запиши в него свое

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(ord('2'), MapVirtualKey(ord('2'), 0), 0, 0);
  keybd_event(ord('2'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(71, 0, 0, 0); //нажатие клавиши G
 
  keybd_event(71, 0, KEYEVENTF_KEYUP, 0);//отжатие клавиши G
 
  keybd_event(16, 0, 0, 0);
  keybd_event(66, 0, 0, 0);
 
  keybd_event(66, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(16, 0, KEYEVENTF_KEYUP, 0);
 
  setcursorpos(531,16);
 
  mouse_event(mouseeventf_leftdown,0,0,0,0);
  mouse_event(mouseeventf_leftup,0,0,0,0);
 
  keybd_event(84, 0, 0, 0);
  keybd_event(84, 0, KEYEVENTF_KEYUP, 0);
end;

включи и не выключай и увидиш что будет

это бред мне нужно чтобы перед нажатием и отжатием клавиши G прошло 4 секунды, код который вы предоставили просто повторяет событие через 4 секунды, то-есть нажатие и отжатие клавиши будет моментальным, это не то что мне нужно!!!

@Игорь[Igor] · 18.09.2013, 20:32

Сам ты бред, тебе уже показали как и это сделать.

сделай перед включением таймера нажатие а в нутри таймера выключение, и всего делов-то, способов много, невидиш кроме слипа ничего.

@~~Lirrk~~ Заблокирован
	18.09.2013, 18:13	12
	Да говорят ва, элементарно. У вас работает таймер. Он крутится постоянно. Скажем интервал у него 10 мс 4000 / 10 - получаем количество шагов таймера для 4 сек. Где-то нажимается клавиша и устанавливается флаг удержания. По этому флагу начинает работать счётчик. Как только пройдёт нужное количество шагов, клавиша опустится и сбросится флаг удержания. Если за это время произойдёт проверка, она обнулит счётчик и счёт тут же остановиться. Тут уж можно и флаг остановки поставить, и по этому флагу запустить событие. 0

@~~Lirrk~~ Заблокирован
	18.09.2013, 18:30	14
	флаг, семафор, это обычная переменная типа boolean Скажем её имя Pause Вначале Pause:=false; есть ещё счётчик tim_step; Вот вы чем-то нажимаете клавишу... ~~~~~~~~~~~~~~~~~~~ И сразу tim_step:= 4000 div Timer1.interval; Pause:=true;//установка флага А тут вот событие таймера if Pause then begin tim_step:= tim_step -1; if tim_step = 0 then Pause:=false; end; Вот так запустили таймер. а через 4 секунды остановили его Далее в этом же обработчике. Ваша проверка. Если всё в порядке то Pause:=false; Всё, счётчик остановлен преждевременно. Отпускаете клавишу И запускайте событие. 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	18.09.2013, 18:43	15
	Сообщение от DANNY4ever таймер нажимает на кнопку клавы и отпускает через 4 секунды, я не знаю как это сделать без слипа. Так и сделать задать таймеру 4 секунды, и после выполнить Enabled:=false таймера при старте опять задать Enabled:=true и через 4 секунды он опять выключиться сам Добавлено через 4 минуты Тут таймера только из за слипов путаются лучше и равда сделать один, а это все по отдельнм процедурам кинуть и через определенное положение счетчика вызывать их, и не много будет, а наоборот все в одном месте и видно что когда вызывается 0

@DANNY4ever 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 13
		1
	Как экстренно остановить таймер? 18.09.2013, 17:41. Показов 6160. Ответов 23 Метки нет (Все метки) Здравствуйте, подскажите пожалуйста как экстренно остановить таймер. У меня такая ситуация, работает таймер в котором прописан sleep в 4 секунды, в это время работает второй таймер и проверяет какую-то ситуацию, if - если ситуация совпадает, then - тогда 2й таймер отключает 1й таймер Timer1.Enabled:=false; и запускает событие. Беда в том что это событие надо выполнить очень быстро, а он ждет завершение события 1ого таймера, а это как минимум 4 секунды прописанные в слипе. Как остановить 1й таймер полностью чтобы сбрасывал свое событие и выключался? Перерыл в инете кучу информации, killtimer, abort, exit, как это применить в моем случае не знаю подскажите пожалуйста. 0

@Algoritmer 159 / 98 / 25 Регистрация: 07.03.2013 Сообщений: 513 Записей в блоге: 1
	18.09.2013, 17:43	2
	Проверь, есть ли такая функция: Timer1.kill, и если что используй в коде 2-го таймера вместо Timer1.Enabled:=false 0

@DANNY4ever 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 13
	18.09.2013, 17:44 [ТС]	3
	Сообщение от Algoritmer Проверь, есть ли такая функция: Timer1.kill ))))искал нету)))) 0

@~~Lirrk~~ Заблокирован
	18.09.2013, 17:47	4
	А вы плюньте на два таймера и оставьте один. Используйте счётчик и флаги. 0

@DANNY4ever 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 13
	18.09.2013, 17:50 [ТС]	5
	Сообщение от Lirrk А вы плюньте на два таймера и оставьте один. Используйте счётчик и флаги. плюнуть конечно можно, но мне стало интересно, это может пригодиться везде, и мне очень интересно решение именно этой проблемы, часто сталкивался с данной проблемой. 0

@Algoritmer 159 / 98 / 25 Регистрация: 07.03.2013 Сообщений: 513 Записей в блоге: 1
	18.09.2013, 17:51	6
	А первый таймер отключать обязательно? Может быть можно просто паралельно выполнять желаемое событие? (например в другом потоке) 0

@~~Lirrk~~ Заблокирован
	18.09.2013, 17:54	7
	DANNY4ever, А это уже чушь - два таймера, да ещё синхронизировать их. Так никогда не делается. Таймер нужен не для этого. 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	18.09.2013, 17:55	8
	А зачем в таймере еще и sleep? 0

@DANNY4ever 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 13
	18.09.2013, 18:01 [ТС]	9
	Сообщение от Algoritmer А первый таймер отключать обязательно? Может быть можно просто паралельно выполнять желаемое событие? (например в другом потоке) первый таймер зажимает клавишу на клавиатуре "G" и ждет 4 секунды потом отжимает, 2й таймер должен нажать пробел, он не может нажать пробел пока 1й таймер не подождет 4 секунды, даже если во втором таймере прописать отжатие клавиши "G" он все равно сделает это через 4 секунды. Добавлено через 1 минуту Сообщение от Lirrk DANNY4ever, А это уже чушь - два таймера, да ещё синхронизировать их. Так никогда не делается. Таймер нужен не для этого. а что нужно для этого? у меня 8 таймеров, если я все запихаю в 1 будет очень длинный код я в нем никогда не разберусь. Добавлено через 1 минуту Сообщение от Игорь[Igor] А зачем в таймере еще и sleep? таймер нажимает на кнопку клавы и отпускает через 4 секунды, я не знаю как это сделать без слипа. 0

@~~Lirrk~~ Заблокирован
	18.09.2013, 18:02	10
	DANNY4ever, 8??????? 0

@DANNY4ever 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 13
	18.09.2013, 18:17 [ТС]	13
	Сообщение от Lirrk Да говорят ва, элементарно. У вас работает таймер. Он крутится постоянно. Скажем интервал у него 10 мс 4000 / 10 - получаем количество шагов таймера для 4 сек. Где-то нажимается клавиша и устанавливается флаг удержания. По этому флагу начинает работать счётчик. Как только пройдёт нужное количество шагов, клавиша опустится и сбросится флаг удержания. Если за это время произойдёт проверка, она обнулит счётчик и счёт тут же остановиться. Тут уж можно и флаг остановки поставить, и по этому флагу запустить событие. ну так я не знаю как ставят эти флаги и принцип их работы))), подскажите пожалуйста, или ссылку с мануалом скиньте пожалуйста, я в delphi самоучка, знаю только элементарные основы. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,255
	18.09.2013, 18:47	16
	Сообщение от DANNY4ever первый таймер зажимает клавишу на клавиатуре "G" и ждет 4 секунды потом отжимает, 2й таймер должен нажать пробел А зачем это все нужно? Может это можно сделать как-то не через задний проход? 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	18.09.2013, 20:32	20
	Сам ты бред, тебе уже показали как и это сделать. сделай перед включением таймера нажатие а в нутри таймера выключение, и всего делов-то, способов много, невидиш кроме слипа ничего. 0