✔ [Delphie] string in aktive anwendung schreiben

[Nawi0]

Guten tag,

ich habe ein kleineres problem
welches wäre:

ich versuche einen text an das aktive fenster zu "senden"

wie das in vbs geht weis ich das is wshshell.sendkeys "text"

also das der text stumpf als "tastatureingabe" übergeben wird

gibt es das auch für delphie?

\\
ausprobiert habe ich das:

procedure SendKeyString(KStr: String);
var
  Scan: SHORT;
  key: Byte;
  i: Integer;
begin
  for i := 0 to length(KStr) do begin
    key := Byte(Kstr[i]);
    Scan := ord(key);
    keybd_event(key, Scan, 0, 0);
    keybd_event(key, Scan, KEYEVENTF_KEYUP, 0);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   sleep(3000);
  SendKeyString('test');
end;

soweit schön und gut allerdings bekomm ich iwie immer das heutige datum ausgegeben

 

[Nawi0]

Nach einigem suchen habe ich dies hier gefunden