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?