Стоп

[Obey177]

Вообщем нужно чтобы по нажатию клавиши End программа останавливалась...кого не затруднит помогите...

[DIgorevich]

Где клавиша нажиматься должна? Что имеется ввиду, под "остановкой" программы? Закрытие?

[Obey177]

на клавиатуре есть клавиша End...нет не закрываться а просто останавливаться

[DIgorevich]

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

[ex.cluz]

Obey177, что ж вы молчите? Вам нужен глобальный хук. Вот про него и спрашивайте.

[Obey177]

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

[DIgorevich]

ну скидывай... посмотрим.

[Obey177]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pt : TPoint;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
  X: integer;
begin
Button1.Tag := 0;
for X := 0 to StrToInt(Edit8.Text) do

begin
  Form1.Left := 800;
  Form1.Top  := 40;
  SetWindowPos(FindWindow(nil, 'Lineage II'), HWND_TOP, 0, 0, 800, 800, SWP_SHOWWINDOW);
  Sleep(2000); // Ждём, когда там всё выстроится как надо
  GetCursorPos(pt);
    SetCursorPos(StrToInt(Form1.Edit1.Text), StrToInt(Form1.Edit2.Text)); // Ставим курсор на поле ввода пароля
    GetCursorPos(pt);

    // Двойной клик на энчант
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Application.ProcessMessages;

    Sleep(900);

      GetCursorPos(pt);
    SetCursorPos(StrToInt(Form1.Edit3.Text), StrToInt(Form1.Edit4.Text)); // Ставим курсор на поле ввода пароля
    GetCursorPos(pt);

    // клик на пуху
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));

    Sleep(900);

     GetCursorPos(pt);
    SetCursorPos(StrToInt(Form1.Edit5.Text), StrToInt(Form1.Edit6.Text)); // Ставим курсор на поле ввода пароля
    GetCursorPos(pt);

    // клик на ОК
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0);
    Sleep(StrToInt(Form1.Edit7.Text));

    Sleep(900);

 Application.ProcessMessages;
  if Button1.Tag <> 0 then Break;
  end;
  end;

end.

[Пепел Феникса]

а там разве по энд в кликере вашем?
не думаю, горячая клавиша вам нужна

помоему тут лучше по нажатию хоткея начинать кликать, потом по повтору прекращать кликать, думаю даже прерывание по середине функи не нужно.

[DIgorevich]

тебе надо не программу останавливать, а дописывать в нее прерывание процедуры по нажатию клавиши. Ищи по поиску, обсуждалось.