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?