[Delphi] HWND로 ClassName 얻어오기

int GetClassName(          HWND hWnd,    LPTSTR lpClassName,    int nMaxCount);

FindWindow 나 GetForegroundWindow 등으로 얻은 핸들을 이용하여 ClassName 을 얻는 법

아래는 자기자신 윈도우의 ClassName 을 얻어오는 버튼 클릭 이벤트 핸들러

 

procedure TForm1.Button1Click(Sender: TObject);

var cName: array [0..MAX_PATH] of Char;

begin

  if GetClassName(GetForegroundWindow, cName, MAX_PATH)<>0 then ShowMessage(cName)

  else ShowMessage('Error');

end;