Tasten an Programm senden

[Wuaegner]

Habe mir die Unit besorgt, das Handle des Fensters bekomme ich auch jedoch:

Delphi-Quellcode:

procedure TForm1.DigitaleRckwrtssuchemiteinbeziehen1Click(Sender: TObject);
var targetWnd: HWND;
begin
  // Markierte Nummer in Zwischenablage
if LBNummern.Items.Count>0 then  // nur wenn es einen gibt
  ClipBoard.AsText := LBNUmmern.Items.Strings[LBNummern.ItemIndex];

  ShellExecute(Application.Handle, 'open' ,PChar('C:\Programme\Digitale Rückwärtssuche 2005\KINVERS.EXE'), nil, nil, sw_ShowNormal);
  sleep(4000); // Damit das Handle dann auch exisitert , gibts hier ne bessere Lösung?
  targetWnd :=  FindWindow('TKIMainF', 'Digitale Rückwärtssuche 2005');

  if targetwnd <> 0 then
  begin
    SetForegroundWindow(targetwnd);
    SendKeys(targetwnd,'%D',false);
  end;
end;

Jedoch wird ALT+D nicht an die richtige Anwendung geschickt. Warum nicht?