FindWindowEx Logik

[Sprint]

Zitat von toms:

Aber: Er findet es nicht! FindWindowEx() gibt immer null zurück! Warum?

Mit halben Source Code von dir, ist es schwer zu ermitteln was falsch läuft. Kann dir aber versichern das FindWindowEx funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WndParent: HWND;
  WndChild: HWND;
  ClsNameChild: String;
  TitleChild: String;
begin

  WndChild := Button1.Handle;
  WndParent := Windows.GetParent(WndChild);
  SetLength(ClsNameChild, 1024);
  SetLength(ClsNameChild, GetClassName(WndChild, PChar(ClsNameChild), Length(ClsNameChild)));
  SetLength(TitleChild, 1024);
  SetLength(TitleChild, GetWindowText(WndChild, PChar(TitleChild), Length(TitleChild)));
  WndChild := FindWindowEx(WndParent, 0, PChar(ClsNameChild), PChar(TitleChild));
  if WndChild = 0 then
    RaiseLastOSError;

end;