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?