Delphi - Delphi

Аватара пользователя
JCooper

Delphi - Delphi

Сообщение JCooper »

Типа как dropbasket в Net Vampire или Flash Get. Чтобы никогда не сворачивалось. Какие есть варианты?
Аватара пользователя
JCooper

Re: Delphi - Delphi

Сообщение JCooper »

Что-то примерно такое

hMenu := GetSystemMenu(hWindow, FALSE);

DeleteMenu(hMenu, MF_BYCOMMAND, SC_MINIMIZE);



hWindow сначала надо взять из Form-ы, потом из Application (чтоб не сворачивался из панели задач). Если не достаточно - будем дальше думать.
Аватара пользователя
hasherfrog

Re: Delphi - Delphi

Сообщение hasherfrog »

Kuper

Все гениальное просто Изображение

Вот только все же мне не совсем понятно кое-что. Получается, что нажатие на Hide-all просто вызывает рассылку SC_MINIMIZE всем окнам. Кто их игнорирует, не сворачивается. Но как тогда работают программы по обработке всяких там Антибосс-кеев и т.д. (а их полным-полно в сети). Например (первое попавшееся)

http://www.pssoftlab.com/onlinehelp/...ditional.phtml


обещает ни много, ни мало, а


Цитата:



Now you can minimize any application to a system tray.
Аватара пользователя
vasketsov

Re: Delphi - Delphi

Сообщение vasketsov »

vasketsov у меня BorderStyle:=bsNone поэтому убирать ту кнопочку нет смысла (ее и так нетИзображение), надо бы сделать так чтобы приложение не было видно на панели задач (пробовал ShowWindow(Application.Handle, sw_Hide), не помогает), и чтобы его нельзя было свернуть даже командой "свернуть все окна".
Аватара пользователя
hasherfrog

Re: Delphi - Delphi

Сообщение hasherfrog »

Скрыть кнопку с таскбара - этого в сети полно, например:



Код:

Код: Выделить всё

 
procedure TForm1.FormCreate(Sender: TObject) ; 
begin 
   ShowWindow(Application.Handle, SW_HIDE) ; 
   SetWindowLong(Application.Handle, GWL_EXSTYLE, 
     getWindowLong(Application.Handle, GWL_EXSTYLE) or 
     WS_EX_TOOLWINDOW) ; 
   ShowWindow(Application.Handle, SW_SHOW) ; 
end;

А вот воспрепятствовать хайд-олл, ИМХО, не выйдет вообще. (Поправьте, если я ошибаюсь)
Аватара пользователя
JCooper

Re: Delphi - Delphi

Сообщение JCooper »

hasherfrog спасибо, код работает Изображение.




Цитата:



А вот воспрепятствовать хайд-олл, ИМХО, не выйдет вообще. (Поправьте, если я ошибаюсь)



Да нет, можно это (Net Vampire например), но как??? Если изменением св-в окна этого не сделать, то может хук поставить на системное сообщение "свернуть все окна" что ли, если такое возможно?
Аватара пользователя
vasketsov

Re: Delphi - Delphi

Сообщение vasketsov »

Kuper

Попробуй придушить сообщение WM_SYSCOMMAND с кодом SC_MINIMIZE
Аватара пользователя
vasketsov

Re: Delphi - Delphi

Сообщение vasketsov »

Изображение  помогает лишь при нажатии на кнопочку свернуть в заголовке окна
Аватара пользователя
JCooper

Re: Delphi - Delphi

Сообщение JCooper »

Как-то просто должно делаться, я уверен, но вот как?
Аватара пользователя
JCooper

Re: Delphi - Delphi

Сообщение JCooper »

Kuper

А как не помогает?

Как сворачиваешь?
Ответить

Вернуться в «Программирование и базы данных»