EnumChildWindows wird nicht aufgerufen

[Christian Seehase]

Moin Zusammen,

ich erstelle gerade ein kleines Konsolenprogramm (soll unter XP laufen), dass ein Programm aufrufen, und dann einen Button dieses Programmes anklicken soll.
Das funktioniert auch alles, ausser das aufgerufene Programm maximiert sich durch ein
SendMessage(self.Handle,WM_SYSCOMMAND,SC_MAXIMIZE, 0);
im OnCreate (ein SC_MINIMIZE bringt das Problem nicht)
Dann wird nur das Hauptfenster gefunden, und EnumChildWindows wird nicht aufgerufen.

Delphi-Quellcode:

function GetButtonHandle(const AhProcess : DWORD;const AsButtonText : string) : DWORD;


var
  dwPID : DWORD;

begin
  Result      := $FFFFFFFF;
  dwPID       := GetProcessId(AhProcess);
  hMainWindow := 0;
  EnumWindows(@EnumWindowsProc,dwPID);
  if hMainWindow = 0 then Exit;
  hButtonToClick := 0;
  sButtonText    := AsButtonText;
  AttachThreadInput(GetCurrentThreadID,GetWindowThreadProcessID(hMainWindow,nil),true);
  try
  if not EnumChildWindows(hMainWindow,@EnumChildWindowsProc,0) then begin
//    ShowMessage(SysErrorMessage(GetLastError));
  end;
  finally
    AttachThreadInput(GetCurrentThreadID,GetWindowThreadProcessID(hMainWindow,nil),false);
  end;
  if hButtonToClick = 0 then begin
    Result := 0;
  end else begin
    Result := hButtonToClick;
  end;
end;

ShowMessage meldet dann fleissig, dass der Vorgang erfolgreich beendet wurde.

Hat jemand eine Idee, warum die Funktion nicht aufgerufen wird?