HWND로 ClassName 얻어오기

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

FindWindow 나 GetForegroundWindow 등으로 얻은 핸들을 이용하여 ClassName 을 얻는 법
아래는 자기자신 윈도우의 ClassName 을 얻어오는 버튼 클릭 이벤트 핸들러



procedureTForm1.Button1Click(Sender: TObject);
varcName: array[0..MAX_PATH] ofChar;
begin
ifGetClassName(GetForegroundWindow, cName, MAX_PATH)<>0then ShowMessage(cName)
else ShowMessage('Error');
end;