최상위 윈도우 얻기

최상위 윈도우 얻기

728x90

 

 

 

 

현재 윈도우상에서 최상위에 떠있는 이름을 알려주는 함수

 

function OKTopWindowText: string;

var

  WinName: array[0..144] of char;

begin

  FillChar(WinName, 145, 0);

  GetWindowText(GetForegroundWindow, WinName, 144);

  SetLength(Result, StrLen(WinName));

 

  Result := StrPas(WinName);

end;