Объясните пожалуйста, почему функция не работает должным образом? вроде должно брать

Question

Объясните пожалуйста, почему функция не работает должным образом? вроде должно брать

активное окно сравнивать его размер с размером экрана, и если есть совпадение = true
проверял браузером в полноэкранном режиме
function isFullScreen: Boolean;
var
h: hWnd;
Rect: TRect;
X, Y: Integer;
begin
h := GetForegroundWindow;
X := Screen.Width;
Y := Screen.Height;
if h <> 0 then
begin
if GetWindowRect(h, Rect) then
begin
if (X >= Rect.right - Rect.left) and (Y >= Rect.bottom - Rect.top) then
Result := True
else
Result := false
end
else
Result := false;
end;
Result := false;
end;

#lazarus #programming #russian

0

15.11.2024

12 ответов

21 просмотр

Handatros

Стикер

0

1 месяц назад

JF Автор вопроса

почему?

0

1 месяц назад

Handatros

JF
почему?

потому что в конце функции результат присваивается False :)

0

1 месяц назад

JF Автор вопроса

Handatros
потому что в конце функции результат присваивается...

🤣спс

0

1 месяц назад

JF Автор вопроса

Handatros
потому что в конце функции результат присваивается...

исправил, в конце добавил else end else Result := false; теперь когда тыкаю на рабочий стол - выдает true

0

1 месяц назад

Alex

там еще мультимониторность бы учитывать, в общем, лучше у чатагпт спроси. он и пример напишет и объяснит каждую строку

0

1 месяц назад

Iluha Companets

JF
исправил, в конце добавил else end else Result :...

компилер разве не предупреждает о неопределённости Result? ваш исходный код надо было просто поправить - False первой строкой, и далее только проверять условие доя True

0

1 месяц назад

Iluha Companets

Alex
там еще мультимониторность бы учитывать, в общем, ...

Стикер

0

1 месяц назад

Ed Doc

Устраняют конкурентов 😊

0

1 месяц назад

Serg