SendMessage(h,WM_CHAR,?,?);

SendMessage(h,WM_CHAR,?,?)

Potrzebuję przesłać znak do innej aplikacji (notatnik), nie wiem czy dobrze się do tego zabieram??? Może ktoś ma więcej doświadczenia w tym kierunku

Pozdrawiam

A nie lepiej uaktywnić aplikację i wysłać do niej text przy pomocy keybd_event?

Dzięki !!!

a oto przykładowy program

procedure TForm1.Timer1Timer(Sender: TObject);
begin
h := GetForegroundWindow;//GetFocus;
keybd_event(znak,0,0,0);
Timer1.Tag := Timer1.Tag + 1;
Label1.Caption := IntToStr(timer1.Tag);
Label2.Caption := IntToStr(H);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := False;
znak := 99;
SetActiveWindow(h);
Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
znak := -1;
end;