Text zur anderer Anwendung senden

[stoxx]

Zitat von baumina:

Meinst Du so?

Delphi-Quellcode:

for i := 1 to length(MeinString) do
begin
  sendmessage(handle,wm_char,ord(MeinString[i]),0); 
end;

Autsch ....
hier mal meine SendDebug function ...

Delphi-Quellcode:

function SendDebug(Value : string):Integer;
var
  RcvHandle: THandle;
  cd: TCopyDataStruct;
begin
  RcvHandle:=GetRcvHandle;
  result := 0;
  if RcvHandle<>0 then begin
    cd.dwData:=0;
    cd.cbData:=Length(Value)+1;
    cd.lpData:=PChar(Value);
    result := SendMessage(RcvHandle, WM_COPYDATA, Application.Handle, Integer(@cd));
  end;
  LastDebugString := Value;
end;