Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Delphi

Ответить
Настройки темы
Delphi - Delphi


Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


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

Отправлено: 18:55, 05-04-2004

 

Модер


Сообщения: 1716
Благодарности: 17

Профиль | Сайт | Отправить PM | Цитировать


Что-то примерно такое
hMenu := GetSystemMenu(hWindow, FALSE);
DeleteMenu(hMenu, MF_BYCOMMAND, SC_MINIMIZE);

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

-------
Васкецов Сергей
http://registry.oszone.net


Отправлено: 21:25, 05-04-2004 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.



Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


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

Отправлено: 22:30, 05-04-2004 | #3


Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать


Скрыть кнопку с таскбара - этого в сети полно, например:
Код: Выделить весь код
 
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;
А вот воспрепятствовать хайд-олл, ИМХО, не выйдет вообще. (Поправьте, если я ошибаюсь)

Отправлено: 09:40, 06-04-2004 | #4



Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


hasherfrog спасибо, код работает .

Цитата:
А вот воспрепятствовать хайд-олл, ИМХО, не выйдет вообще. (Поправьте, если я ошибаюсь)
Да нет, можно это (Net Vampire например), но как??? Если изменением св-в окна этого не сделать, то может хук поставить на системное сообщение "свернуть все окна" что ли, если такое возможно?

Отправлено: 17:02, 06-04-2004 | #5


Модер


Сообщения: 1716
Благодарности: 17

Профиль | Сайт | Отправить PM | Цитировать


Kuper
Попробуй придушить сообщение WM_SYSCOMMAND с кодом SC_MINIMIZE

-------
Васкецов Сергей
http://registry.oszone.net


Отправлено: 20:14, 06-04-2004 | #6



Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


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

Отправлено: 21:10, 06-04-2004 | #7



Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


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

Отправлено: 19:38, 07-04-2004 | #8


Модер


Сообщения: 1716
Благодарности: 17

Профиль | Сайт | Отправить PM | Цитировать


Kuper
А как не помогает?
Как сворачиваешь?

-------
Васкецов Сергей
http://registry.oszone.net


Отправлено: 19:33, 08-04-2004 | #9



Сообщения: 196
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


vasketsov
Код: Выделить весь код
procedure Min(var Msg: TMessage); message WM_SYSCOMMAND;
....................

procedure TForm1.Min(var Msg: TMessage);
begin
   if Msg.WParam = SC_MINIMIZE then
   else inherited;
end;
Сворачивается лишь при минимизаии окна через системное меню, ежели через меню панели задач или по команде свернуть все окна то нифига.

Рыл в инете и надыбал исходник проги на с++, там это самое несворачиваемое окошко является диалоговым в режиме Modal (главное окно там ваще невидимое). Но я еще не совсем разобрался как ето реализовано.

Отправлено: 22:29, 08-04-2004 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Delphi

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Delphi - Delphi | UpperCase на Delphi 7 Cognolio Программирование и базы данных 3 26-01-2006 15:42
Delphi - Delphi Surround Программирование и базы данных 11 10-01-2004 22:13
Delphi - Delphi Zx Программирование и базы данных 3 27-08-2003 10:19
Delphi - Delphi Roman Go Программирование и базы данных 9 25-12-2002 15:48
Delphi - Delphi Roman Go Программирование и базы данных 11 11-12-2002 14:43




 
Переход