So, jetzt mal mit dem Spiegel über die Schulter nach hinten gezielt mit dem Revolver:
Delphi-Quellcode:
procedure ClickIt;
var
hWnd : Cardinal;
hBtn : Cardinal;
begin
hWnd := FindWindow(
nil, '
verbunden mit XXL arcor');
if hWnd = 0
then
begin
Messagebox(
Handle, '
Fenster nicht gefunden', '
Fehler', MB_ICONSTOP);
exit;
end;
hBtn := FindWindowEx(hWnd, 0,
nil, '
Aktivieren');
if hBtn = 0
then
begin
Messagebox(
Handle, '
Knöppgens nicht gefunden', '
Fehler', MB_ICONSTOP);
exit;
end;
SendMessage(hBnt, BM_CKLICK, 0, 0);
end;
Den Fenstertitel und den Buttontext könnte man als parameter übergeben, dann wird es etwas universeller.