Senden Von Strings an andere Programme

[Andy090778]

Delphi-Quellcode:

procedure SendText;
var
  Text: String;
  EditHandle, WindowHandle: HWND;
begin
  Text := 'Hallo';
  WindowHandle := FindWindow(nil, 'XXX - Nachrichtensitzung');
  EditHandle := FindWindowEx(WindowHandle, 0, 'RichEdit20A', nil);
  SendMessage(EditHandle, WM_SETTEXT, 0, Integer(PChar(Text)));
end;

jetzt noch mixen mit GetText und natürlich mit Deinem Text.

Andreas