Fensterposition/-größe einer fremden Anwendung

[EWeiss]

Zitat von MuTzE:

Die Position auf dem Desktop!

Ich kann komischer weise nehmen was ich will, ich bekomme immer 512 und 384 raus!
Egal wie oft ich das Fenster verschiebe. Selbst wenn ich nach meiner Anwendung suche!

Oder mache ich was falsch?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TheWindowHandle: THandle;
  aRect: TRect;
begin
  ...
  GetWindowRect(TheWindowHandle, aRect);
  label1.Caption := IntToStr(aRect.Left);
  label2.Caption := IntToStr(aRect.Top);
end;

Bei mir gehts!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  TheWindowHandle: THandle;
  aRect: TRect;
begin
  TheWindowHandle := self.Handle;
  GetWindowRect(TheWindowHandle, aRect);
  label1.Caption := IntToStr(aRect.Left);
  label2.Caption := IntToStr(aRect.Top);
end;

gruß