procedure TForm1.Button1Click(Sender: TObject);
var
  AHandle: HWnd;
begin
  AHandle := FindWindow('Notepad', nil);
  if AHandle <> 0 then
    SetWindowPos(AHandle, 0, 100, 100, 500, 500, 0);
end;



김현승 님이 쓰신 글 :
: 안녕하세요...
: 질문 올립니다.
:
: 실행된 프로그램(예를 들면 메모장, 파워포인트 등등)들이 실행되어 있을때 각각의 프로그램의 창크기 및 창의 위치를 맘대로 조절 하고 싶은데...어떻게 하나요?
:
: 예를 들어 메모장을 실행시켜 놓고 화면의 좌표로 볼때 X, Y를 100, 100 크기를 500, 500 이렇게 조절하고 싶거든요.
:
: 그럼 답변 부탁 드립니다.