Передача нажатия кнопки в другие программы.

[GrindeX]

Интересует как при нажатии любой кнопки при активном окне моей программы, такая же кнопка нажималась в какой-нибудь другой программе.
Например: жму в своей программе кнопку "Д" и в блокнот пишется Д.

[Stilet]

в какой-нибудь другой программе.

программа программе рознь. В таких случаях уточняют задачу до максисимума.

[GrindeX]

Передачи нажатия клавиши в блокнот мне хватит.

[russian-stalker]

FindWindow
SENDMessage
WM_CHAR
ORD('Д')
Больше ничего не надо)

[GrindeX]

Сообщение от russian-stalker

FindWindow
SENDMessage
WM_CHAR
ORD('Д')
Больше ничего не надо)

Можно подробнее?

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=findwindow('Notepad',nil);
h:=findwindowex(h,0,'Edit',nil);
sendmessage(h,WM_CHAR,ord('A'),0);
end;

[Lime]

Сообщение от russian-stalker

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=findwindow('Notepad',nil);
h:=findwindowex(h,0,'Edit',nil);
sendmessage(h,WM_CHAR,ord('A'),0);
end;

ПЫСЫ и раскладка в окнах должна быть одинаковая , иначе бред ...

[GrindeX]

Спасибо вроде разобрался.
А можно по нажатию клавиши выводить целое предложение?

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
s:string;
i:integer;
begin
h:=findwindow('Notepad',nil);
h:=findwindowex(h,0,'Edit',nil);
s:='My Text';
for i:=1 to length(s) do
sendmessage(h,WM_CHAR,ord(s[i]),0);
end;

[Niklan]

Сообщение от russian-stalker

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
s:string;
i:integer;
begin
h:=findwindow('Notepad',nil);
h:=findwindowex(h,0,'Edit',nil);
s:='My Text';
for i:=1 to length(s) do
sendmessage(h,WM_CHAR,ord(s[i]),0);
end;

как сделать чтобы он Enter жал после того как введет текст, и до этого тоже.
То есть Она должна нажать Enter написать "Hello World" и сного нажать Enter.
Это в блокноте получится что перейдет на новую строку.