sendmessage an ein Fremdprogramm löst dort kein Event aus

[Periander]

Hallo,

mein Problem ist folgendes; ich möchte in ein Editfeld eines anderen Programms schreiben.
Das klappt auch soweit, allerdings verarbeitet das fremde Programm diese Eingabe nicht so, als wenn ich den Text manuel eintragen würde.


Ich habe das ganze so versucht:

Delphi-Quellcode:

   s := 'random';
   For i := 1 to Length(s) do
   begin
   SendMessage(hwnded2, WM_CHAR, Word(s[i]), 0);
   end;

Habe das ganze auch mit WM_COPYDATA versucht, allerdings ohne Erfolg:

Delphi-Quellcode:

  var
  aCopyData: TCopyDataStruct;
  p: PChar;

Delphi-Quellcode:

  p := 'random';

  with aCopyData do begin
    dwData := 0;
    cbData := StrLen(p) + 1;
    lpData := p;
  end;

   SendMessage(hwnded2, WM_COPYDATA, Longint(Handle),
              Longint(@aCopyData));
   end;

Ich möchte den Tastendruck nicht über Keydown simulieren, sondern über Sendmessage senden. Kennt jemand einen Grund für mein Problem?