Как сгенерить нажатие клавиши?

stm5999302

Люди, кто-нить знает как это можно сделать в Делфи или С++? Подскажите пожалуйста. Очень нужно

0000

Delphi (API)
keybd_event или послать сообщение WM_CHAR
Тебе какую кнопень нажать и в своей ли проге?

stm5999302

из своей, но в чужом окне, кнопень что-то вроде буквы, ТАБ, ентер и маус.
еще вопрос: как мона узнать класс обьекта, в котором вообще-то и нуна генерить event?

0000

а. буквы (WM_CHAR, keybd_event)
б. ТАБ, ентер (keybd_event)
с. маус (WM_*BUTTON*)
(вроде так)
Итого все типы
Вообщем то класс знать не надо, надо лишь знать на каком объекте у тебя фокус находится - все делается через хэндл.
Недавно на форуме http://forum.sources.ru/index.php?showforum=9 >WinAPI был топик от MajorMilicii (как то так) - Активное окно - там есть ссылки по теме.

Вообще быстро разобраться у тебя вряд ли получится, если с WinAPI не знаком.

stm5999302

Спасибки. Так вот я и разбираюсь с ВинАпи. Исчо раз спасибо

yolki

Надо было сказать что надо использовать SendMessage или PostMessage
А то вдруг, не разберётся..
в Дельфях до апи редко надо спускаться..

0000

в Дельфях до апи редко надо спускаться

Смотря какое тебе программирование по душе - я только на нем и пишу

Volkulak

Глянь функцию SendInput. Стандартная Win32 API функция. В сях библиотека WINABLE.H.
В дельфях тож, по-моему, есть.

stm5999302

А приведите, пожалуйста, пример(работающий чтоб наглядно посмотреть, а то на словах как-то туго понимается

viktor954



{****************************************************}

{              SendKeys Unit for Delphi 32           }

{    Copyright (c) 1999 by Borut Batagelj (Slovenia) }

{                       Aleksey Kuznetsov (Ukraine)  }

{            Home Page: www.utilmind.com             }

{            E-Mail: utilmind.com               }

{****************************************************}

unit SendKeys;

interface

uses

  Windows, SysUtils;

const

  SK_BKSP = #8;

  SK_TAB = #9;

  SK_ENTER = #13;

  SK_ESC = #27;

  SK_ADD = #107;

  SK_SUB = #109;

  SK_F1 = #228;

  SK_F2 = #229;

  SK_F3 = #230;

  SK_F4 = #231;

  SK_F5 = #232;

  SK_F6 = #233;

  SK_F7 = #234;

  SK_F8 = #235;

  SK_F9 = #236;

  SK_F10 = #237;

  SK_F11 = #238;

  SK_F12 = #239;

  SK_HOME = #240;

  SK_END = #241;

  SK_UP = #242;

  SK_DOWN = #243;

  SK_LEFT = #244;

  SK_RIGHT = #245;

  SK_PGUP = #246;

  SK_PGDN = #247;

  SK_INS = #248;

  SK_DEL = #249;

  SK_SHIFT_DN = #250;

  SK_SHIFT_UP = #251;

  SK_CTRL_DN = #252;

  SK_CTRL_UP = #253;

  SK_ALT_DN = #254;

  SK_ALT_UP = #255;

procedure SendKeyString(Text: String);

procedure SendKeysToTitle(WindowTitle: String; Text: String);

procedure SendKeysToHandle(WindowHandle: hWnd; Text: String);

procedure MakeWindowActive(wHandle: hWnd);

function GetHandleFromWindowTitle(TitleText: String): hWnd;

implementation

procedure SendKeyString(Text: String);

var

   i: Integer;

   Shift: Boolean;

   vk, ScanCode: Word;

   ch: Char;

   c, s: Byte;

const

   vk_keys: Array[0..9] of Byte =

      (VK_HOME, VK_END, VK_UP, VK_DOWN, VK_LEFT,

       VK_RIGHT, VK_PRIOR, VK_NEXT, VK_INSERT, VK_DELETE);

   vk_shft: Array[0..2] of Byte = (VK_SHIFT, VK_CONTROL, VK_MENU);

   flags: Array[False..True] of Integer = (KEYEVENTF_KEYUP, 0);

begin

   Shift := False;

   for i := 1 to Length(Text) do

    begin

     ch := Text[i];

     if ch >= then

      begin

       s := Ord(ch) - 250;

       Shift := not Odd(s);

       c := vk_shft[s shr 1];

       ScanCode := MapVirtualKey(c,0);

       Keybd_Event(c, Scancode, Flags[shift], 0);

      end

     else

      begin

       vk := 0;

       if ch >= then

        c := vk_keys[Ord(ch) - 240]

       else

        if ch >= then {228 (F1) => $70 (vk_F1)}

         c := Ord(ch) - 116

        else

         if ch < then

          c := Ord(ch)

         else

          begin

           vk := VkKeyScan(ch);

           c := LoByte(vk);

          end;

       ScanCode := MapVirtualKey(c,0);

       if not Shift and (Hi(vk) > 0) then { $2A = scancode of VK_SHIFT }

        Keybd_Event(VK_SHIFT, $2A, 0, 0);

       Keybd_Event(c,scancode, 0, 0);

       Keybd_Event(c,scancode, KEYEVENTF_KEYUP, 0);

       if not Shift and (Hi(vk) > 0) then

        Keybd_Event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);

      end;

    end;

end;

procedure MakeWindowActive(wHandle: hWnd);

begin

  if IsIconic(wHandle) then

   ShowWindow(wHandle, SW_RESTORE)

  else

   BringWindowToTop(wHandle);

end;

function GetHandleFromWindowTitle(TitleText: String): hWnd;

var

  StrBuf: Array[0..$FF] of Char;

begin

  Result := FindWindow(PChar(0 StrPCopy(StrBuf, TitleText;

end;

procedure SendKeysToTitle(WindowTitle: String; Text: String);

var

  Window: hWnd;

begin

  Window := GetHandleFromWindowTitle(WindowTitle);

  MakeWindowActive(Window);

  SendKeyString(Text);

end;

procedure SendKeysToHandle(WindowHandle: hWnd; Text: String);

begin

  MakeWindowActive(WindowHandle);

  SendKeyString(Text);

end;

end.

Пример:


unit Unit1;

interface

uses

  Windows, Messages, Classes, Controls, Forms, StdCtrls, Registry,

  SysUtils, SendKeys;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    RunATIBtn: TButton;

    Play: TButton;

    MinimizeBtn: TButton;

    ATIOnTopBtn: TButton;

    CloseATIBtn: TButton;

    ATIFullBtn: TButton;

    OpenBtn: TButton;

    procedure PlayClick(Sender: TObject);

    procedure OpenBtnClick(Sender: TObject);

    procedure ATIFullBtnClick(Sender: TObject);

    procedure MinimizeBtnClick(Sender: TObject);

    procedure ATIOnTopBtnClick(Sender: TObject);

    procedure CloseATIBtnClick(Sender: TObject);

    procedure RunATIBtnClick(Sender: TObject);

  private

    Window: hWnd;

  public

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

const

  ATITitle = 'ATI VIDEO PLAYER';

procedure TForm1.PlayClick(Sender: TObject);

begin

  SendKeysToTitle(ATITitle, ' ');

end;

procedure TForm1.OpenBtnClick(Sender: TObject);

begin

  SendKeysToTitle(ATITitle, SK_CTRL_DN + 'O' + SK_CTRL_UP);

end;

procedure TForm1.ATIFullBtnClick(Sender: TObject);

begin

  SendKeysToTitle(ATITitle, SK_CTRL_DN + 'F' + SK_CTRL_UP);

end;

procedure TForm1.MinimizeBtnClick(Sender: TObject);

begin

  SendKeysToTitle(ATITitle, SK_CTRL_DN + 'M' + SK_CTRL_UP);

end;

procedure TForm1.ATIOnTopBtnClick(Sender: TObject);

begin

  SendKeysToTitle(ATITitle, SK_CTRL_DN + 'T' + SK_CTRL_UP);

end;

procedure TForm1.CloseATIBtnClick(Sender: TObject);

begin

  SendKeysToTitle(ATITitle, SK_Alt_DN + SK_F4 + SK_Alt_UP);

end;

procedure TForm1.RunATIBtnClick(Sender: TObject);

var

  Reg: TRegistry;

  ATIFileName: String;

  pc: Array[0..$FF] of Char;

begin

  ATIFileName := '';

  Reg := TRegistry.Create;

  try

   with Reg do

    begin

     RootKey := HKEY_LOCAL_MACHINE;

     OpenKey('\SOFTWARE\ATI Technologies\Schedule\Programs', False);

     ATIFileName := ReadString('ATIPlayer');

    end;

  except

  end;

  Reg.Free;

  if ATIFileName <> '' then

   begin

    StrPCopy(pc, ATIFileName);

    WinExec(pc, sw_ShowNormal);

   end;

end;

end.

stm5999302

Спасибо огромнейшее
Оставить комментарий
Имя или ник:
Комментарий: