[ApxaHGe1]

К примеру есть у меня TEdit1, в нем написано "F11"
как реализовать нажатие данной клавиши по клику на кнопку?

Код:

SendMessage(Window2, WM_KEYDOWN,StrToInt(Form1.Edit1.Text), 0);
SendMessage(Window2, WM_KEYUP, StrToInt(Form1.Edit1.Text), 0);

Админ: для выделения кода пользуемся тегом СОDE!

так выдает ошибку)

[Alegun]

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

...так выдает ошибку)

Ясен пень, ошибка - функции StrToInt цифирки вместе с буквами пытаются подсунуть

Из любимого, что в подписи

Код:

...
type
TSVKey = record
 SKey : string;
 VKey : Byte;
end;

const
 SndKey:TSVKey = (SKey: 'F11'; VKey: VK_F11);
...

if Form1.Edit1.Text = SndKey.SKey then
 begin
  SendMessage(Window2, WM_KEYDOWN, SndKey.VKey, 0);
  Sleep(200);
  SendMessage(Window2, WM_KEYUP, SndKey.VKey , 0);
 end;
...

[icWasya]

Код:

var
  SC:TShortCut;



  SC:=TextToShortCut(Form1.Edit1.Text);

  SendMessage(Window2, WM_KEYDOWN, SC, 0);
  Sleep(200);
  SendMessage(Window2, WM_KEYUP, SC , 0);