Finde Window

[ljmarkus]

Hallo.

Mein Problem ist, möchte die Position eines Fenster finden und die X und Y Position erkennen um dann in dem Fenster die richtige Position zu bekommen.

Folgender Code gibt mir die Farbwerte aus und die Position auf dem gesamten Bildschirm.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var DC : HDC;
    AColor : Array[1..4] of Byte;
    hwnd_hpc, hwnd_dc: THandle;

begin
  hwnd_hpc := FindWindow('XXXX','XXXX');
  hwnd_dc := GetWindowDC(hwnd_hpc);
  DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
  DWord(AColor) := GetPixel(DC,Mouse.CursorPos.X,Mouse.CursorPos.Y);
  DeleteDC(DC);
  Label1.Caption := 'R: ' + IntToStr(AColor[1]) + ';      ' +
                    'G: ' + IntToStr(AColor[2]) + ';      ' +
                    'B: ' + IntToStr(AColor[3]) + ';      ' +
                    'Hex: ' + IntToHex(DWord(AColor),6);

  Label4.Caption := 'TColor: $'+IntToHex(DWord(AColor),8);

  Label2.Caption := 'X: ' + IntToStr(Mouse.CursorPos.X);
  Label3.Caption := 'Y: ' + IntToStr(Mouse.CursorPos.Y);
end;

Vielen Dank schonmal.

lg, markus