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

[raxp]

посылка chr(13) будет эквивалетна вашему enter

[Niklan]

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

посылка chr(13) будет эквивалетна вашему enter

не работает

[russian-stalker]

sendmessage(h,WM_CHAR,13,0);
sendmessage(h,WM_CHAR,10,0);

[Пепел Феникса]

procedure SendStringToNotePad(S:string);
var h:hwnd;
    i:integer;
begin
 h:=findwindowex(findwindow('Notepad',nil),0,'Edit',nil);
 for i:=1 to Length(s) do sendmessage(h,WM_CHAR,ord(s[i]),0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SendStringToNotePad('First'#13'Second');
end;

все работает.

[raxp]

... зырим ...

[mihali4]

To Niklan
Читаем правила. И не лезем со с своими вопросами в чужую тему.
Доступно?
Иначе начну штрафовать...

[Niklan]

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

To Niklan
Читаем правила. И не лезем со с своими вопросами в чужую тему.
Доступно?
Иначе начну штрафовать...

мы с ним вместе делаем, и не как не можем заставить в другом окне теперь нажать Enter. Либо никак не реагирует на ентер, либо даже не компилируется

[Lime]

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

мы с ним вместе делаем, и не как не можем заставить в другом окне теперь нажать Enter. Либо никак не реагирует на ентер, либо даже не компилируется

SendMessage( handle окна ,WM_KEYDOWN,VK_RETURN,0); //Enter
SendMessage( handle окна ,WM_KEYUP,VK_RETURN,0); //Enter

Как найти handle выше были примеры , например можно так

var
h:hwnd;
begin
h:=findwindow('Notepad',nil);
h:=findwindowex(h,0,'Edit',nil);
//+
SendMessage( h ,WM_KEYDOWN,VK_RETURN,0); //Enter
SendMessage( h ,WM_KEYUP,VK_RETURN,0); //Enter

[Juffin]

насколько я помню, энтер - это два символа подряд - 13 10

[raxp]

#13#10 это аналог CR LF возврат каретки и символ новой строки