Определить, находится ли окно в режиме Выше всех

Delphi , Программа и Интерфейс , Размеры и Положение

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function IsWindowTopMost(hWindow: HWND): Boolean;
 begin
   Result := (GetWindowLong(hWindow, GWL_EXSTYLE) and WS_EX_TOPMOST) <> 0
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if isWindowTopMost(FindWindow('notepad', nil)) then
     Label1.Caption := 'Window ist topmost'
   else
     Label1.Caption := 'Window ist not topmost';
 end;

Статья Определить, находится ли окно в режиме Выше всех раздела Программа и Интерфейс Размеры и Положение может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Размеры и Положение ::