Найдите ошибку в коде

[WPW]

Function SetTextWnd(_new:string):boolean;
var
 hFocusedWnd : HWND;
 dwThreadID : DWORD;
 dwBytesNeeded : DWord;
 pszWindowText : PChar;
begin
 dwThreadID := GetWindowThreadProcessId(GetForegroundWindow, nil);
 if dwThreadID <> 0 then
  begin
   if AttachThreadInput(GetCurrentThreadId, dwThreadID, True) then
    begin
     hFocusedWnd := GetFocus;
     if hFocusedWnd <> 0 then SendMessage(hFocusedWnd, WM_SETTEXT, 0, lParam(PChar(_new)));
     AttachThreadInput(GetCurrentThreadId, dwThreadID, False);
    end;
  end;
end;
 
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
if key = VK_F2 then
begin
SetTextWnd('текст');
...

Тоесть при нажатии на ф2 в любое активное окно должно вписываться слово текст. Не работает....

[min@y™]

для начала – вотЪ.

[WPW]

Это не нормальный форум, если бы здесь были бы скрипты под каждый язык, как к примеру на киберфоруме, тогда было бы лучше.

[Stilet]

Это не нормальный форум

Что же ты тогда здесь делаешь, если мы ненормальные?

Не работает....

А зачем нужны такие сложности?
Простого SendMessage(GetForegroundWindow, WM_SETTEXT, 0, lParam(PChar(_new))); не хватает?