Горячие клавиши

[Sibedir]

Так вот же он - http://www.programmersforum.ru/showp...3&postcount=39
Это весь мой пример. Добавляем в свою программу процедуру PostKeyEx32 и используем ее по аналогии с TForm1.Button1Click.

[xRamzeSx]

Что у Вас на форме кроме кнопки?

[Sibedir]

Ничего.
Я это сделал только для того, чтобы убедится, что эмуляция нажатия клавишь работает.

Можно сделать например так:
1. Наша программа запускается программа
2. Делает окно игры активным. Запоминаем текущее здоровье персонажа X
3. Таймер каждые 0.1 сек проверяет здоровье нашего персонажа
4. Если здоровье упало ниже критического (X * 0.15), эмулирует нажатие

PostKeyEx32(Ord('i'), [ssAlt], False);

(где i: 1..6)
до тех пор, пока здоровье не восстановится до X * 0.8.

[xRamzeSx]

Эта функция очень-очень полезная.
Но всё же, можно ли как нибудь сделать нажитие по Check'ам?

[Sibedir]

xRamzeSx, это как называется. Я сам когда-то был новичком. Но тут то даже вообще не программист разберется. Как с помощью чекбоксов выполнять/не выполнять процедуры разобрались, как эмулировать нажатие разобрались. Вы что хотите зказать, что вот это сложно было додумать.

procedure TForm1.Prem;
begin
  while Button1.Tag = 1 do begin
    if CheckBox1.Checked then begin
      Memo1.Lines.Add ('Alt+1 HotKey start');
      PostKeyEx32(Ord('1'), [ssAlt], False);
    end;
    if CheckBox2.Checked then begin
      Memo1.Lines.Add ('Alt+2 HotKey start');
      PostKeyEx32(Ord('2'), [ssAlt], False);
    end;
    if CheckBox3.Checked then begin
      Memo1.Lines.Add ('Alt+3 HotKey start');
      PostKeyEx32(Ord('3'), [ssAlt], False);
    end;
  end;
end;

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

Добавлено --------------------------------------------
Перечитал свой пост и понял: звучит довольно грубо. Но к сожелению сообщения на форумах еще не могуг передавать интанаций голоса. Поверте, если бы я говорил вам это своим голосом, то вы бы не услышали интонаций надменности и строгости. Это была бы, скорей, ирония. Мол, ну и как же это, любезный, называется.
xRamzeSx, я пытаюсь лишь оказать вам посильную помошь, но ни как не выставить вас в не хорошем свете.

[xRamzeSx]

Всё равно у меня не получается, посмотрите, может где что-то не так, или я не так использую.
PS: Настараживает вопрос - как программа узнаёт, в какой программе ей выполнять процедуры? Изучая исходный код, названия окна я не нашёл...

[Sibedir]

PostKeyEx32(Ord('3'), [ssAlt], False);

Эмулирует нажатие клавишь вообще как таковое.

Например вот это

procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostKeyEx32 (9, [ssAlt], True);
end;

Будет работать как будто вы Alt-Tab постоянно нажимаете.



Проект скачал. Накануне посмотрю.

[xRamzeSx]

Тот архив, который Вы загрузили, с ошибкой исходника, посмотрите этот.

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

Можно сделать например так:
1. Наша программа запускается программа
2. Делает окно игры активным. Запоминаем текущее здоровье персонажа X
3. Таймер каждые 0.1 сек проверяет здоровье нашего персонажа
4. Если здоровье упало ниже критического (X * 0.15), эмулирует нажатие

PostKeyEx32(Ord('i'), [ssAlt], False);

(где i: 1..6)
до тех пор, пока здоровье не восстановится до X * 0.8.

Как это в коде записать?

[Sibedir]

Самое главное здесь - это узнать здоровье персонажа. Я думаю это можно сделать по аналогии с именем.
Как сделать окно другого приложения активным найти легко
http://www.delphisources.ru/pages/fa...tivate_it.html
Далее все делает таймер, два условия в его обработчике и функция PostKeyEx32.

[xRamzeSx]

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

Самое главное здесь - это узнать здоровье персонажа.

Вот адрес, отображающий здоровье $0049DD9C

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

Далее все делает таймер, два условия в его обработчике и функция PostKeyEx32.

Как это записать?

PS: Та ссылка с кодом. Программа ругается на этот код.