симуляция нажатий клавиш

[4321]

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

SendMessage(Memo1.handle, wm_char, ord('ф'), 0);

печатает букву Ф

[Terran]

Вот вам процедура, Procedure SetKey(код клавиши которую хотите нажать); только она нажимает клавиши в любом активном окне:

Procedure SetKey(Key: Integer);
Begin
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
End;

[4321]

выводит вот такую ошибку

[Error] Unit1.pas(430): Undeclared identifier: 'Key'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[SunKnight]

все гуд

Procedure SetKey(Key: Integer);
Begin
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetKey(13);
end;

[mihali4]

выводит вот такую ошибку

А вы эту процедурку поставьте самой первой, после
implementation
{$R *.dfm}
Зачем вы ее в самый хвост модуля сунули?
[Error] Unit1.pas(430): Undeclared identifier: 'Key'

[4321]

SetKey(13); eto shift ili??? i ese rebiat kak ili gde dostat polnii spisok virt klavis toist na kazduiu bukvu i.t.d.

[SunKnight]

http://wdh.suncloud.ru/keycodes.htm

[4321]

rebiat ia vsio sdelal osibok net no ne pecataet mojet problema v tom sto ia kogda najomaiu aktivnim stanovitsia moio okno ili kak pomogote pojaluista

[4321]

narod pliiiz pomogite ocen nujnoo

[Terran]

Попробуйте проверить работоспособность так :

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
SetKey(52);
SetKey(51);
SetKey(50);
SetKey(49);
End;

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