안녕 하세요?

BacTeria 박종민 입니다.

오랜만에 들렀다가 혹 도움이 될까해서...

아래의 코드는 현재 메모장의 위치를 구하는 코드입니다. 참고하세요...

이만...

PS. 다른 프로그램의 시작 위치를 얻으려면 후킹이라는 방법을 써야 되는데
    좀 고차원적인(?) 내용이라...

-------------------------------------------------------------------------
// 폼에 메모, 버튼 컴포넌트를 하나씩 놓습니다.

procedure TMainForm.Button1Click(Sender: TObject);
var
  Rect: TRect;
begin
  GetWindowRect(FindWindow(nil, '제목 없음 - 메모장'), Rect);

  with Rect do
  begin
    Memo1.Lines.Add(IntToStr(Left));
    Memo1.Lines.Add(IntToStr(Top));
    Memo1.Lines.Add(IntToStr(Right));
    Memo1.Lines.Add(IntToStr(Bottom));
  end;
end;

// 폭은 Right - Left가 되겠고, 높이는 Top - Bottom이 되겠네요~

-------------------------------------------------------------------------