опять клавиатура

[tred]

 keybd_event(Ord('1'), 0, 0, 0);
  keybd_event(Ord('1'), 0, KEYEVENTF_KEYUP, 0);

Здравствуйте код выше отправляет код символа а мне надо чтобы была имитация нажатия клавиши может знает кто-нибудь как это зделать ?
Может быть с аппаратной очередью сообщений намудрить если кто знает ))

[Somebody]

Не отправляет код символа, а как раз имитирует нажатие клавиши. Что не устраивает?

[tred]

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

[Somebody]

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

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

Так если он пишет в чат, значит, чат - это и есть активное окно.

[tred]

нет чат это форма в окне наверно
в общем в чат пишет а кнопка как управляющая в окне не работает
хотя нажимаю пальцами работает )

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

а активное окно это чат?
или что?
ибо получает то именно фокусное окно.

можете попробовать SendInput, она более рекомендумая и лучше.

если и она не поможет, то приложение видимо использует DirectInput.

[tred]

там в окне есть чат само окно не реагирует на код а когда фокус на чат делаю то печатает

unit Main;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
      Label1: TLabel;
        Label2: TLabel;
          Label3: TLabel;
    procedure FormCreate(Sender: TObject);
      procedure TimePause(dwMilliseconds: Longint);
  private
    { Private declarations }
    procedure WM_HotKeyHandler (var Message: TMessage);
      message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    keyid: integer;
      keyid1: integer;
        iStart: DWORD;
          iStop: DWORD;
            flag: integer=0;
implementation

{$R *.dfm}
//////////////////////////////////////////////////////////////////
procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
  var
    idHotKey: integer; //идентификатор, но об этом - позже
      fuModifiers: word; //модификатор MOD_XX
        uVirtKey: word; //код виртуальной клавиши VK_XX
begin
  // параметры сообщения получаем так:
  idHotkey:= Message.wParam;
    fuModifiers:= LOWORD(Message.lParam);
      uVirtKey:= HIWORD(Message.lParam);

  //теперь - небольшая проверочка:
  if (fuModifiers = MOD_ALT) AND (uVirtKey = VK_NUMPAD1) then
  begin
    repeat
      TimePause(3000);
        keybd_event(49, 0, 0, 0);
          TimePause(100);
            keybd_event(49, 0, KEYEVENTF_KEYUP, 0);
              TimePause(250);
                keybd_event(50, 0, 0, 0);
                  TimePause(100);
                    keybd_event(50, 0, KEYEVENTF_KEYUP, 0);
    until flag<>0;
     UnregisterHotKey(handle, keyid);
        GlobalDeleteAtom(keyid);
          UnregisterHotKey(handle, keyid1);
            GlobalDeleteAtom(keyid1);
              //Form1.Close();
  end
  else if (fuModifiers = MOD_ALT) AND (uVirtKey = VK_NUMPAD9) then
    flag:=1;
  inherited;
end;
//////////////////////////////////////////////////////////////////
// процедура  создания горячих клавиш при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
  keyid:=GlobalAddAtom('My Hotkey'); //создаем атом
  keyid1:=GlobalAddAtom('My Hotkey1');
    RegisterHotKey(handle,// сообщение о HotKey будет получать форма
      keyid, // регистрируем атом как id
        MOD_ALT,// модификатор у нас - клавиша Alt
          VK_NUMPAD1); // вирт. клавиша - F10

    RegisterHotKey(handle,// сообщение о HotKey будет получать форма
      keyid1, // регистрируем атом как id
        MOD_ALT,// модификатор у нас - клавиша Alt
          VK_NUMPAD9); // вирт. клавиша - F10

end;
//////////////////////////////////////////////////////////////////
//         процедура типа таймер задержки
procedure TForm1.TimePause(dwMilliseconds: Longint);
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
      Application.ProcessMessages;
  until (iStop - iStart) >= DWORD(dwMilliseconds);
end;

end.

вот листинг проги
как мне туда функцию SendInput воткнуть подскажите пожалуйста

[Аватар]

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

[tred]

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