Guten Tag...

Ich hole mir mit GetNextWindow alle akutellen Handles. Doch brauche ich glaube ich andere handles.
Mit dieser Methode bekomme ich ja den Handle wie z.B "Application.Handle" b.z.w ich kann mit diesem handle nicht mit GetWindowRect die Position herrausfinden. Wie bekomme ich nun den "anderen" Handle wie z.B "Self.Handle" mit dem ich dann auch die Position erkennen kann ?

MfG

EnumWindows und alle unsichtbaren* Fenster(handle) "wegschmeissen".

*) IsWindowVisible

Vielleicht bräuchte er auch noch EnumChildWindows. Oder eben mit Get(Next)Window und dem Parameter xyz_Child.

Ich glaube, es geht ihm nur um die Toplevel-Fenster, weil er irgendwie eine Grafik auf die Fenster fallen lassen will. Also so was wie Schnee der auf den Fenstern liegen bleibt. Oder war das jemand anders? Ich gucke mal, ob ich da schnell was zusammenschreibe.

Ja genau ich will eine grafik auf ads Fenster fallen lassen. DOch leider komme ich mit EnumWindows garnicht klar ?!

Ja warte. Kommt gleich was.

zusammenfalten · markieren

Delphi-Quellcode:

type
  PMyEnumParam = ^TMyEnumParam;
  TMyEnumParam = record
    FMemo: TMemo;
  end;

function EnumWindowsProc(const hWnd: THandle; Param: PMyEnumParam): LongBool; stdcall;
var
  Len: Longint;
  s: string;
  rect: TRect;
begin
  Result := True;
  if not (IsWindow(hWnd) and IsWindowVisible(hWnd)) then
    Exit;
  Len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
  if Len > 0 then
  begin
    SetLength(s, Len);
    SendMessage(hWnd, WM_GETTEXT, Len + 1, Longint(Pchar(s)));
    GetWindowRect(hWnd, rect);
    s := s + ' TopLeft: ' + IntToStr(rect.TopLeft.X) + '|' + IntToStr(rect.TopLeft.Y) + ' BottomRight: ' + IntToStr(rect.BottomRight.X) + '|' + IntToStr(rect.BottomRight.Y);
    Param.FMemo.Lines.Add(s)
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Param: TMyEnumParam;
begin
  Param.FMemo := Memo1;
  EnumWindows(@EnumWindowsProc, LPARAM(@Param));
end;

Dankeschön genausowas habe ich gesucht