Aloa,
so Leutz, ^^, jetzt hab ich es.
Hätte nicht gedacht, das eine Verdrehung von
nil und 'Testfenster' so eine fatale Auswirkung haben kann.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
p : TWindowPlacement ;
x, y : Integer;
hwnd : THandle;
begin
hwnd := FindWindow(nil, 'Testfenster');
if hwnd <> 0 Then
begin
BringWindowToTop(hwnd);
SetActiveWindow(hwnd);
begin
GetWindowPlacement(hwnd, @p);
x := p.rcNormalPosition.left+400;
y := p.rcNormalPosition.top+300;
SetCursorPos(x,y);
mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;
end;
end;
Das Fenster wird jetzt gefunden, in den Vordergrund gesetzt und es wird,
egal wo sich das Fenster auf dem Desktop befindet, ein Klick auf der gewünschten Position "im" Fenster ausgeführt.
Ich danke euch für eure hilfreichen Tips!
Mit freundlichem Gruß
Lostriga