Отправлено: 04.06.07 21:07. Заголовок: Как запретить закрытие терминального окна "крестом"?

Речь идет об терминальном окне с прогой на xHarbour.
Извините за ламерский вопрос. Возможно ли это? Если да, то как?
Спасибо.

 Отправлено: 13.04.26 19:57. Заголовок: Dima, добрый вечер. ..

Dima, добрый вечер. Консоль WIN10 - вернула привычный стиль окна программы с возможностью изменить размер шрифта.
Вашей подсказкой воспользуюсь завтра....
Спасибо и обязательно сообщу результат. Офис переходит в административном порядке на WIN11. Я и отдельные пользователи привыкли к WIN7 /10. У себя сделали настройки "под/как WIN10"....

 Отправлено: 13.04.26 21:09. Заголовок: Oskar_AAA товарищ ч..

Oskar_AAA
товарищ чекнул на 11 винде , все норм и без предварительных ласок настроек , работает

 Отправлено: 14.04.26 06:02. Заголовок: Доброе утро, DIMA hW..

Доброе утро, DIMA
hWnd точно не пустое ? - возвращает 0

 Отправлено: 14.04.26 06:04. Заголовок: Oskar_AAA товарищ че..

Oskar_AAA
товарищ чекнул на 11 винде , все норм и без предварительных ласок настроек , работает
- мы сделали настройками консоль запуска программы как в Win10. С деактивацией "закрытие крестиком" работа продолжается. буду делать и под WIN10 и WIN11

 Отправлено: 14.04.26 06:10. Заголовок: ИИ прислал совет:har..

ИИ прислал совет:harbour
PROCEDURE Main()
LOCAL hWnd
LOCAL cTitle := "MyAppTitle"

// 1. Устанавливаем уникальный заголовок, чтобы FindWindow не ошибся
SetConsoleTitle( cTitle )

// Небольшая пауза, чтобы Windows успела обновить заголовок окна
hb_idleSleep( 0.1 )

// 2. Ищем дескриптор окна по заголовку
hWnd := FindWindow( cTitle )

IF hWnd != 0
// 3. Отключаем кнопку закрытия
DeleteCloseButton( hWnd )
ENDIF

// ... остальной код программы ...
RETURN
Проставил hb_idleSleep( 0.1 ) - крестик деактивирован

 Отправлено: 14.04.26 07:20. Заголовок: Вот еще от ИИ совет:..

Вот еще от ИИ совет:
harbour
// После того как получили hWnd через FindWindow:
IF hWnd != 0
DeleteCloseButton( hWnd ) // Крестик (уже работает)
DisableMaximize( hWnd ) // Кнопка развертывания станет серой
DisableMinimize( hWnd ) // Кнопка сворачивания станет серой
ENDIF

проверил на xharobour + WIN 11 работает

 Отправлено: 14.04.26 07:24. Заголовок: c // Запретить измен..

c
// Запретить изменение размера окна (растягивание мышкой)
HB_FUNC( FIXWINDOWSIZE )
{
HWND hWnd = (HWND) hb_parnl(1);
LONG lStyle = GetWindowLong(hWnd, GWL_STYLE);

// Убираем стиль "толстой рамки" (THICKFRAME) и кнопку развертывания (MAXIMIZEBOX)
// Обычно их отключают парой, чтобы окно стало фиксированным
SetWindowLong(hWnd, GWL_STYLE, lStyle & ~(WS_THICKFRAME | WS_MAXIMIZEBOX));

DrawMenuBar(hWnd);
}
Используйте код с осторожностью.
Как применить это в основном коде:
harbour
IF hWnd != 0
DeleteCloseButton( hWnd ) // Отключаем крестик
FixWindowSize( hWnd ) // Запрещаем растягивание и кнопку "Развернуть"
ENDIF

 Отправлено: 14.04.26 16:38. Заголовок: Oskar_AAA пишет: //..

Oskar_AAA пишет:

цитата:

// 2. Ищем дескриптор окна по заголовку hWnd := FindWindow( cTitle )

Видимо так быстрее будет
Harbour
Hwnd:=hb_gtInfo( HB_GTI_WINHANDLE )

XHarbour
Hwnd:=hb_gtInfo( HB_GTI_GETWIN )