Смысл в том, что известен хендл окна, которому надо послать нажатие кнопок, только тех, которых этому приложению нужно обработать, а остальные игнорить!!! делаю так
library hook_dll1;
uses
Windows,
Messages,
Forms,SysUtils;

const key_down=$40000000;

var
Wnd : Hwnd =0;
syshook:integer;

function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var f:textfile;
begin
assignfile(f,'C:\log.log');
append(f);
Result := CallNextHookEx(SysHook, Code, wParam, lParam);
wnd:=findwindow('notepad',nil);
if code = HC_ACTION then
if lParam or key_down = lParam // если клавиша нажата
then
begin
if wnd>0 then
begin
writeln(f,inttostr(wnd)+'-'+(chr(wParam))) ;
SendMessage(wnd,WM_CHAR,wparam,0);
result:=0;
end;
end
else
Result := CallNextHookEx(SysHook, Code, wParam, lParam);

closefile(f);
end;

{ Процедура установки HOOK-а}
procedure hook(switch : Boolean) export; stdcall;
begin
if switch=true then
begin
SysHook :=SetWindowsHookEx(WH_KEYBOARD, @SysMsgProc, HInstance, 0);
end
else
begin
UnhookWindowsHookEx(SysHook);
SysHook :=0;
end;
end;

exports hook;

begin

end.

чет нифига не выходит, блокнот не печатает символы

| Сообщение посчитали полезным:

вы неверно шлете WM_CHAR. lParam заполните

| Сообщение посчитали полезным:

подскажите плиз где гуглнуть ? с Wparam разобрался, что там должен быть виртуальный код кнопки!
Но может я вообще не то делаю, так как мне надо послать окну именно нажатие кнопки

| Сообщение посчитали полезным:

LazzY пишет:
lParam заполните
В случае с блокнотом можно и с нулевым.

3uM6a6Ba пишет:
wnd:=findwindow('notepad',nil);
Надо слать не главному окну блокнота (класс Notepad), а текстовому полю блокнота (класс Edit).

| Сообщение посчитали полезным: