Autotext-Programm - aber wie?

[Bummi]

Delphi-Quellcode:

function GetFocusedControlHandle: HWND;
var
   FG_Window_Handle:HWND;
   FocusedThreadID : DWORD;
begin

  FG_Window_Handle := GetForegroundWindow;

  FocusedThreadID := GetWindowThreadProcessID(FG_Window_Handle, nil) ;

  if AttachThreadInput(GetCurrentThreadID, FocusedThreadID, true) then
  Result := GetFocus;
  AttachThreadInput(GetCurrentThreadID, FocusedThreadID, false) ;
end;

// kleiner test ....

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
var
 s:AnsiString;
begin
  s := 'Hallo';
  SendMessage(GetFocusedControlHandle,wm_setText,0,Integer(@s[ 1]));
end;