Нажатие клавиши

[ClMlD]

fate Либо я торможу либо хз , вставля во все значения где стоит 0 , 3 (пробовал вставить 3B делфи пишет ошибку) не получается у меня не как .. . , так же где встовлял значение 3 всё выполнял но опять же на том же моменте останавливал нажатие клавиши (((((

[fate]

вставля во все значения где стоит 0

почитай описание функции keybd_event

3B - это в шестнадцатеричной системе, поэтому пробуй $3B

[ClMlD]

fate спасибо тебе огромное , но я не мог не заметить следующий момент , я изменил код следующем способом

SetForegroundWindow(FindWindow(nil, 'Asterios'));
keybd_event(VK_F1, 0, 0, $3B);
keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)

Смотрю в программе spy++ логи , сообщение не изменилось таким же осталось

<00001> 00230644 P WM_KEYDOWN nVirtKey:VK_F1 cRepeat:1 ScanCode:00 fExtended:0 fAltDown:0 fRepeat:0 fUp:0

<00002> 00230644 P WM KEYUP nVirtKey:Key:VK F1 cRepeat:1 ScanCode:00 fExtended:0 fAltDown:0 fRepeat:1 fUp:1
Но программа стала работать просто на ура больше нет этих остоновок , так и должно быть это норма или всеже я накасячил?
Так же хотелось бы узнать как я могу вас отблагодарить ? ? ?

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

[fate]

keybd_event(VK_F1, 0, 0, $3B);

третий раз пишу что скан код это второй параметр.

Но программа стала работать просто на ура

странно, а попробуй так keybd_event(VK_F1, $3B, 0, 0);

как я понял вы так же можете писать на асме

нет на асме я не пишу

[ClMlD]

Как не удивительно но с этим пораметром :

странно, а попробуй так keybd_event(VK_F1, $3B, 0, 0);

Программа вобще нечего не делает O_o даже не разу не жмет на кнопку . . .

[ClMlD]

У меня ещё вопросик :
А как можно отправить это же нажатие клавиши только не активному окну?

[DenNik2006]

вот ссылка на Spy++ вер 9.00. Интерфейс русский, хелп на инглише
http://reversing.do.am/load/spy/3-1-0-35

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

У меня ещё вопросик :
А как можно отправить это же нажатие клавиши только не активному окну?

SendMessage

[ClMlD]

DenNik2006 нет SendMessage не подходит , я щас побегал по поиску форума и понял что SendMessage не подходит для реализации моей задачи а нужна функция PostMessage. Но я что то с ней не разберусь заголовок окна верный 100% пытаюсь отослать клик а не каких действий нету , так же в логах окна тоже тихо. . .

[ClMlD]

Помогите прошу что тут не так ? у меня уже сил нету. . .

procedure TForm1.Button1Click(Sender: TObject);
 var
   wnd: HWND;
 begin
   wnd := FindWindow('Имя окна', nil);
   if wnd <> 0 then
   begin
    PostMessage(wnd, WM_KEYDOWN, VK_F1, 0);
    PostMessage(wnd, WM_KEYUP, VK_F1, 0);
   end;
end;

[fate]

у функции FindWindow первый параметр имя класса, второй заголовок окна