VPF::Хочу, чтобы программа не сварачивалась!?

Nicholas

Дата 16.10.2004, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 436
Регистрация: 30.9.2004

Репутация: нет
Всего: 0

При нажатии Windows+D прграмма сварачивается, а как это устранить????

Alkash

Дата 16.10.2004, 12:45 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Отловить нажатия клавишь, и по их нажатию не давать свернуться.

--------------------

Подпись >> /dev/null

Alex

Дата 16.10.2004, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Цитата(Nicholas @ 16.10.2004, 13:31)

При нажатии Windows+D прграмма сварачивается, а как это устранить????

Тебе только по нажатию комбинации нужно или что бы вообще не сворачивалась?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

decoder

Дата 16.10.2004, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 204
Регистрация: 18.5.2004
Где: Харьков(хохол, к сожалению)

Репутация: нет
Всего: -1

Если Виндовз+Ды из ряда Альт+Ф4, то одним хуком тут не обойтись... В смысле, если хуку на Альт+Ф4 написать "резалт = 1", то пофиг Альт+Ф4 проскочит. Парадоксальный способ: MessageBox поставить - управление не возвращает, пока ОК не нажмёшь (это если комбинацию клавиш оконная функция не отлавливает, иначе придётся ещё и оконную функцию модифицировать...) - Альт+Ф4 из системной очереди сообщений просто исчезает!

--------------------

Молчать, я вас спрашиваю!

Nicholas

Дата 18.10.2004, 07:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 436
Регистрация: 30.9.2004

Репутация: нет
Всего: 0

Цитата(Alex @ 16.10.2004, 13:50)

Тебе только по нажатию комбинации нужно или что бы вообще не сворачивалась?

Хотелось бы оба варианта увидеть, или хоть по по нажатию как???
:sample

Snowy

Дата 18.10.2004, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

IMHO долхлый номер. Win+D не победить. Работает всегда. Если только в реестре запретить Win комбинации и перезагрузить систему.

imageman

Дата 18.10.2004, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.9.2004

Репутация: 1
Всего: 1

а если попробовать следить за состоянием окна? Координаты, видимость.

А если после Win-D свое окно минимазировать и опять восстановить?

Только что проверил на одной старой программе - там особыми параметрами окна делалось Always Top. - при нажатии win-D сначала окно минимизируется и тут же самостоятельно выскакивает обратно.

Это сообщение отредактировал(а) imageman - 18.10.2004, 12:42

~FoX~

Дата 18.10.2004, 11:12 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Хм.......а если отловить WM_MINIMIZE и развернуть окно обратно
З.Ы. Проверить не могу только что систему переставил

--------------------

…множественность никогда не следует полагать без необходимости…

Akella

Дата 18.10.2004, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

может можно отлавдивать сообщения и реагировать на них по своему
хотя

Цитата

IMHO долхлый номер. Win+D не победить.

я с этим тоже согласен

Snowy

Дата 18.10.2004, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

У меня сработал вот такой вариант:

Кидаем на форму TApplicationEvent. Создаем событие OnMessage.

Код


procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  Application.BringToFront;
  Form1.FormStyle:=fsStayOnTop;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.Minimize;
end;

Как ни странно, если форму не минимизировать хотя бы раз, она не хочет обманывать Win+D. Поэтому при OnCreate сразу ее минимизим, и тогда она всегда лезет наверх.

~FoX~

Дата 19.10.2004, 08:33 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Snowy
Странно, у меня не получается

--------------------

…множественность никогда не следует полагать без необходимости…

<Spawn>

Дата 19.10.2004, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Попробуй поставить хук WH_CBT и ловить Code = HCBT_MINMAX, с последующей установкой результата функции хука в 1.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Nicholas

Дата 19.10.2004, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 436
Регистрация: 30.9.2004

Репутация: нет
Всего: 0

Цитата(Snowy @ 18.10.2004, 16:21)

Кидаем на форму TApplicationEvent. Создаем событие OnMessage.

И у меня работает на Win XP, а на Win9x пробывал кто??
:qstn

imageman

Дата 19.10.2004, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.9.2004

Репутация: 1
Всего: 1

Я сделал таймер и поставил в нем

Код


   win:=FindWindow('IEFrame',nil);
   style := GetWindowLong(win, GWL_EXSTYLE);
   if (style and WS_EX_TOPMOST) <> 0 then begin
        Showwindow(win,SW_MAXIMIZE);
        SetActiveWindow(win);
   end
   else begin
     ShowWindow(win, sw_hide);
     SetWindowPos(win, HWND_TOPMOST, 0,0,screen.Width,screen.Height, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
   end;

после этого окно нельзя надолго свернуть. Сделано, конечно криво!

Более грамотно сделано в TheBat - когда новое письмо приходит, то MailTicker не пропадает (у меня даже по Win-D). Может это из-за того, что оно постоянно обновляется?

Akella

Дата 31.1.2005, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(dsergey @ 18.10.2004, 15:49)

может можно отлавдивать сообщения и реагировать на них по своему
хотя
Цитата
IMHO долхлый номер. Win+D не победить.

я с этим тоже согласен

а теперь не согласен
у соседа игрушка отключает все подобные (для сворачивания) комбинации. Не смогли свернуть ее в панель задач smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »