[Delphi] 마우스 커서에 위치한 윈도우의 핸들및 클래스이름 알아 오기.

마우스 커서에 위치한 윈도우의 핸들값과 클래스내임 등을 알아 낼수 있는 간단한 소스코드 입니다.
SendMessage() 로 특별한 할 일을 할 수 있는 절호의 초간단 코드 입니다.

var
  hWnd  : THandle;
  clsName, Text : Array[0..511] of char;
begin
  hWnd := WindowFromPoint(crPos); // 윈도우 핸들 입니다.
  GetClassName(hWnd, clsName, 512); // 클래스네임을 알아 옵니다.
  SendMessage(hWnd, WM_GETText, Sizeof(Text), Integer(@Text)); // 윈도우 타이틀을 알아 옵니다.
end;

원격 지원 프로그램을 만들수도 있는 좋은 방법 중 하나로 생각 됩니다 ^^